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De nouvelles rubriques arrivent ! 
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En direct, vos questions, vos idées et suggestions 
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Certains revendeurs français disposent d'un 
gratuit pour leurs promotions 


accès 1 


Unen 


Duvelle façon de poser les questions e1 


de 




voir les réponses faites ! 
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La rubrique sur nos productions avec la possi- 
bilité de commander 














C'est en moyenne ce que vous trouvez sur le 
serveur. De quoi faire votre choix ! 




| BRETAGNE EDITP^T 










Dé 
no 


sormais vous trouverez sur le serve 
jveautés diffusées par cette société 


ur les 1 




r^; 


i*^ — | 






Une manière de corres 
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oroscope 1988 mais aussi depuis peu l« 
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Au téléphone, 1 5 minutes ce 
Par minitel, il vous en coûte p 


Citent en moyenne 55 francs 
our le même temps 1 5 francs 
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Ce programme est destiné à tous ceux qui, parallèlement 

à l'informatique, créent des schémas électriques ou 

électroniques. Il vous permettra de dessiner 

vos schémas et de les imprimer. 



SYMB 


NOM 


DESSIN 


OPTIONS 


1 


RESISTANCE 




DROITE GAUCHE HAUT BAS 


H h 


2 


CONDO 


Hh 


DROITE GAUCHE HAUT BAS 


3 


TRANSISTOR 


< 


PNP (P) NPN |N) 


4 


DIODE 


-Vr 


DIRECTION DIODE SENS TRIANGLE 


5 


AMPLI OP 


=£>— 




6 


DIODE ZENER 


— D>r- 


DIRECTION DIODE SENS TRIANGLE 


7 


GENERATEUR 


4> 




8 


MOTEUR 


<$> 




8 


PORTE AND 


s- 




10 


PORTE OR 


^h 




11 


CONTACT RELAIS 


-^*— 


DROITE GAUCHE HAUT BAS 


12 


PORTE NAND 


s- 




13 


PORTE NOR 


^y- 




14 


RELAIS 


r^ 


■ HAUT BAS 




15 


POTAR 




DROITE GAUCHE HAUT BAS 






16 


FUSIBLE 


' 


DROITE GAUCHE HAUT BAS 


1 ' 


17 


POINT DE JONCTION 


• 




18 


TRANSFO 


00 




19 


FLECHE DE U OU DE 1 


A 


DROITE GAUCHE HAUT BAS 


20 


BORNE5 


*b 


NUMEROTAGE AUTO OU MANUEL 


21 


LAMPES 


HgH 


DROITE GAUCHE HAUT BAS 


22 


BORNES 


o 


SANS NUMERO 


23 


BOBINES 


rmi 


TOUS LES SENS 




L'utilisation est très simple car elle fait 
principalement appel aux touches de 
fonctions FI à F6 et aux touches de dé- 
placement du curseur. 

DETAIL DES TOUCHES 

Fl : c'est le mode de déplacement du 
curseur graphique. 

F2 : c'est le mode trace. Lorsque vous 
appuyez sur F2, l'ordinateur fixe votre 
point de départ à l'emplacement du cur- 
seur. Vous déplacez alors votre droite jus- 
qu'au point d'arrivée grâce aux touches 
de déplacement du curseur, puis vous va- 
lidez par Fl ou F2. 

F3 : c'est le mode qui vous permet de 
choisir le symbole à tracer. 

F5 : cette fonction vous permet d'affi- 
cher un texte à l'écran, la première lettre 
s'inscrira à l'emplacement du curseur. 

F6 : c'est le menu principal et il se com- 
pose des diverses fonctions suivantes : 

- DESSIN EN COURS : retour au des- 
sin 

- NOUVEAU DESSIN : permet de chan- 
ger de dessin avec sauvegarde possible 
du précédent. 

- LECTURE : permet de charger un des- 
sin sur la disquette. 

- SAUVEGARDE : sauve votre dessin 
en 17 Ko sur la disquette. 

- IMPRESSION : c'est un vidaged'écran 
sur l'imprimante avec deux possibilités : 

• grand vidage vertical, 

• petit vidage horizontal. 

- HELP : c'est une petite notice d'aide 
à l'utilisation. 




SAUVEGARDE 

Après avoir tapé le programme princi- 
pal, vous le sauvegarderez sous le nom 
ELECTRON.BAS, Ensuite vous sauve- 
garderez le vidage d'écran en lançant le 
programme par un RUN, ensuite, lors- 
que READY s'affichera, vous sauverez 
le programme de cette façon : SAVE 
«VIDAGE.BIN»,B,&A000,&A480. 



' § 1 t M S i «1 ll»II»f tl«*tf »«H»»ltf >FA 

'"« il >FB 

'««« ELECTRÛK iDSAOl « >FC 

'»»« n >FD 

'*•« Jean-francois HA1GNE »» >FE 

'»«» JUILLET 1986 «« >FF 

'*1««l««««««««««««"»««««t«««"« >FG 

CALL IBB4E >BA 

INK 0,0: [NIC 1,26:FEN kBÛRDES >ZF 

KEY 139, "iode 2:list 1Û-29999"*C >HH 
HRII13) 

1 ON EBSO» GOTO 25000 >QB 

B 'llHilIHIlHIllHilIKIlIfli!! >[J 









Votre disquette devra contenir également EX : 
lebankmanager. 



DETAILS POUR 
LES SYMBOLES 

Les options HAUT, BAS, DROITE, 
GAUCHE correspondent à la future posi- 
tion du symbole par rapport au curseur. 



19 '•définition fenêtres et syibols >LK 
* 

20 'HllllIltHIIHIIIllHlSIlHlH >L8 
I 

21 DEFIHT a-z:H0DE 1 .>PN 
27 'chargement routine écran >U 
2B HEH0RY «7FFF:L0AD , b.nkian.bin , :C >TB 
ALL 18000 

29 U)AD"vldaie.bin",liA0O0:CALL IA00 >GN 


30 VINDOIf 12,1, 40,1, 1:PAFER I2,1:PE >ND 
N I2,0:CLSI2 _. 

31 HINDOU ll,18,35,3,4:PAPER 11. 1:P >HT 
EN 11,0 

32 SYHB0L AFTEB 125 >NJ 

33 STNBOL 125,0,8,8,54,8,8,0,0 >SB 

34 SYHB0L 128,32,48,24,12,252,0,0,2 >CH 
52 

35 SïhBOL 231,0,0,120,252,252,252,1 >CC 
20 

36 CALL &BB03 >EJ 
39 CHH=CH8»(24):CH2«=":CH3*="":CH >CÏ 





J. 


Curseur 


fiAIICHKH 


+ 


1- DROITE 









4.=":CH5I=":G0SUB 2330 

43 PLOT 1,1: M AU 638,i:0BAU 639,375 >¥K 
:DRAH 1,375:DSAU 1,1 

44 ÙSCR£BC0PY,3,1 >PB 
47 '«lllilllllllllllllll >HA 
46 '«déplacement curseur* >HB 

49 ' »««*»■»*»*»*«»»«*««#« >HC 

50 l=320:y=200:PRINT CHRt(23);CHlt< >BN 
1);:G0SUB 580 

60 PIINT CHB*(23);CHJt*(l);:G0SUB 58 >AA 
0: HOVE l.y:TAG:P8INT CHR»(125>;:G0 
TO 89 

70 HOVE ll,yl:TAG:PBlNT CHRX12S); >CG 
60 HOVE x,y:TAG:PBINT CHRN125); >BP 

89 TAG0FF >PE 

90 IF J<?-1S THEN «=-15:il=l >yp 

91 IF ï>=640 THEN «=640:il=l >lffl 

92 IF y<=0 THEN y=0:yl=y >TW 

93 IF y>=410 THEN y=410:yl=y >UD 
100 IF 1NKEY(8>=0 AND INKEY(47>=0 T >GY 
HEN GOSUB 580:i=i-4:G0T0 70 

110 IF INKEY(8)=0 AND INKEY<9)=0 TH >FV 
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EN GOSUB S80:«=i-8:GOTO 70 

120 IF INKEYIB>=0 AND 1NKEY(9>=-1 T >GT 

HEN GOSUB 580:ï=i-1:GOTO 70 

130 IF INKEY(1)=0 AND INKEY(47>=0 T >GR 

HEN GOSUB 58O:j=i*4:G0T0 70 

140 IF INKEf<l)=0 AND INKEY(9)=0 TH >FN 

EN GOSUB 580:»=i*8:G0TQ 70 

150 IF INKEYU)=0 AND 1I0ŒÏ(9)=-1 T >GL 

HEN GOSUB 58O:«=nl:G0T0 70 

160 IF INKEY(2>=0 AND 1NKEY(47)=0 T >GA 

HEN GOSUB 5B0:y=y-4:G0T0 70 

170 IF INKEY12)=0 AND INKEY(9I=0 TH >FI 

EN GOSUB 580:y=y-8:G0TD 70 

180 IF 1NKEY(2)=0 AND INKEY(9)=-1 T >GH 

HEN GOSUB 580:y=y-2:G0ïû 70 

190 IF INKEY(0)=0 AND 1NKEY(47)=0 T >GZ 

HEN GOSUB 5B0:y=y*4:G0T0 70 

200 IF INKEY(0)=0 AND INKEY(9)=0 TH >FL 

EN GOSUB 580:y=y<8:GQTD 70 

209 IF INKEY(66>=0 THEN STOP >»IR 

210 IF INKEY(01=0 AND INKEY(9>=-1 T >GK 
HEN GOSUB 580:y=y*2:GOTO 70 

211 IF INKEY(14)=0 THEN chl.=":ch2 >ZF 
J=CHM(24):ch3$="":cn4»=":ch5»="": 
GOSUB 2330:G0SUB 590:GOSUB 580:G0T0 

60 

212 IF IHKEY(12)-0 THEN CALL UB03: >JX 
ÙSCBEENC0PY,3,1:CLS ll:lNPUTtl, 'Te 
ite ?",tent»:ùSCREENC0PY,l,3:TAG:H0 

VE n3,y:PRINT teit»;:TAG0FF 

213 IF 1NKEY(10>=0 THEN I=X*B:Y=Y-S >CC 
:PRINT CHR«(23);CHR«(0);:PL0T I,Y:P 
LOT X»1,Y»1:PL0T IH,Y-t:PL0T X-1,Y 
♦liPLOT X-1,Y-1:PBINT CHM<23);CHR» 
(l)iiX=I-8:Y=Y«5 

400 IF INKEY(5>=0 THEN TAG: HOVE i, >XA 

y:PBINT CHR»(125);:TAG0FF:ÙSCREENC0 

PY,3,l:chl»= , ":cn2»=":ch3«=CHR»{24 

):ch4«=":cb5.=":G0SUB 2330:CALL & 

BB03:CLS 11: INPUT 11, "Syibol ?",sy 

ib:G0T0 900 

500 IF INKEY(20)=0 THEN chl»="":cn2 >VG 

»=":cn3»=":ch4»=CHR»<24kch5»=": 

GOSUB 233ù:PSiNT Chî»(23i;CRÏi(Û) j: 

GOSUB 730:P8INT CK8»(23);CKB»(1);:G 

0SUB 580:G0T0 70 

504 IF INKEY(4>=0 THEN chl«=":ch2 >UC 

>=":cli3«=":cli4«= , ":cli5»=CHR«(24): 

GOSUB 2330:G0T0 1400 

510 GOTO 100 >YD 

569 '»*«««»«»»*««»l»» >UA 

570 ' «fonction trace» >TC 









571 >«««««"«»«"»"« >TD 

580 «l=«:yl=y:8ETUBN >BL 

590 P81NT CHRK23);CHB»(1);:TAG:H0V )NE 
E i,y:P8INT CH8»(125);:TAG0FF 
610 PLOT «*8,y-5,l >HT 

620 a«=i*B:bi=y-5 >HT 

640 IF INKEY<8)=0 THEN GOSUB 720:ai >TG 
=ai-l:G0T0 700 

650 IF INKEY<1>=0 THEN GOSUB 720:a« >RG 
=ai«l:G0T0 700 

660 IF INKEY<2)=0 THEN GOSUB 720:bx >TF 
=bl-2:G0T0 700 

670 IF INKEY(0)=0 THEN GOSUB 720;bi >TC 
=bi*2:G0T0 700 

680 IF INKEY<13)=0 THEN chll=CHR*(2 >HK 
4):ch2«=":ch3»=":ch4«=" , :ch5»=": 
GOSUB 2330:PR1NT CHEX23) ;CHR»(0) ;: 
PLOT it8,y-5:«=a«-8:y=b«*5:DRAU «* 
8,y-5:PEINT CHR»(23);CHR»(l)i:RETUH 
N 

685 IF INKEY(14)=0 THEN «=a«-8:y=bx >EC 
*5 

690 GOTO 640 >AB 

700 PLOT i«B,y-5:DRAU a«,bi >W 
710 PLOT i+8,y-5:DRAU «a,xb:G0T0 64 >EA 

720 >a=ai:"b=bi:REÎuïN >UH 

724 '«««««"«««"«««i» >TD 

725 '«fonction efface» >TE 

726 •»***»««•««»*»»»*« >TF 
730 HOVE «,y:TAG:PRINT • 'i >yX 
740 IF INKEY(8)=0 THEN 1=1-1 >UT 
750 IF INKEY(8)=0 AND INKEY<9)=0 TH >LY 
EN i=i-10 

760 IF INKEY<1>=0 THEN nH >UK 

770 IF INKEY<1)=0 AHD INKEY(9)=0 TH >LQ 

EN 1=11+10 

780 IF INKEY<0)=0 THEN y=y»l >HN 

790 IF INKEY(0)=0 AND 1NKEY19)=0 TH >LU 

EN y=y*10 

800 IF INKEY(2)=0 THEN y=y-l >HK 

810 IF 1NKEY(2)=0 AND INfŒY(9)=0 TH >LQ 

EN y=y-10 

820 HOVE 1,1 >GB 

830 TAG >TK 

840 PRINT CHRS(143); >NG 

850 IF INKEY113)=0 THEN HOVE i,y:TA >KÎ 

G:PRINT CHR»(1251j;TAG0FF:CHl»=CHRI 

*: GOSUB 2330:RETURN 

855 PLOT «,y,l >UH 

980 GOTO 730 >AC 



897 T ««t«««f«*««««««««ti««» >UE 

898 '«gestion des syibols» >UF 
889 'imiililHiiiiHiii! >UG 

900 CLS 11 >EG 

901 IF syib=l THEN 1000 >QE 

910 IF syib=2 THEN 1100 >QG 

911 IF sylb=3 THEN 1200 >QK 

912 IF syib=4 THEN dz=0 :GOT0 1300 >AR 

913 IF syib=5 THEN 1700 >QV 

914 IF sylb=6 THEN 1710 >QY 

915 IF syii=7 THEN GOTO 1800 >VU 

916 IF syib=8 THEN 1850 >QH 

917 IF syab=9 THEN 2501 >QD 

918 IF syibMO THEN 2501 >RN 

919 IF syib-11 THEN 1S60 >RY 

920 IF syib=12 THEN 2600 >RH 

921 IF 3 yib=13 THEN 2610 >RL 

922 IF syib=14 THEN 2650 >RT 

923 IF syib=15 THEN 1000 >RG 

924 IF syib=16 THEN 1920 >RU 

925 IF sylb=17 THEN 1960 >RC 

926 IF syib=18 THEN 3050 >R« 

927 IF syab-10 THEN 5000 >RV 
92B IF syib=20 THEN 4000 >RL 

929 IF syib=21 THEN 4030 >IR 

930 IF syib=22 THEN 4021 >RJ 

931 IF sy»b=23 THEN 5100 >RK 

999 '«««««««««««««««««««««««i >UH 

1000 '«définition des syibols» >ID 

1001 ' ***<«»»«»»»»»«»«»»»»«««» >XE 

1010 •««««««««résistance»""»»» >Œ 

1011 TAG:H0VE i,y:PRINT CHSK125);: >PN 
TAG0FF:PR1NT CHt»(23);CHI»(0); 

1012 i=l»8:y=y-5 >LN 
1020 PRINT 11, "direction ;■ >ZU 

1030 IF INKEY(0)=0 AND INKEY(8)--1 >VG 
AND INKEY(1)=-1 AND INKEY(2)=-1 THE 

N ÙSCREENCOPY, 1,3: PLOT X,Y:DRAU i,y 
«10:DRAH <«5,ytl0:DRAU i*5,yt40:DRA 
y l-5,yH0:DRAH i-5,y*10:D8AU l,y*l 
0:PLDT i,y»40:DEAH i,y*50:r»=l:G0T0 
1040 

1031 IF INKEY(2)=0 AHD INKEY(0)=-1 >VB 
AND INKEY(BI=-1 AND INKEY(1)=-1 THE 

N ÙSCREENCOPY, 1,3:PL0T i,y:DRAU l,y 
-10:DRAU «*5,y-10:DRAU >«5,y-40:DEA 
U i-5,y-40:DRAW «-5,y-10:DRAW i,y-l 
0:PL0T i,y-40:DRAy i,y-50:rv=2:G0T0 
1040 

1032 IF INKEY(1>=0 AND IWŒYI8)=-1 >VL 
AHD INKEY(0)=-1 AND INKEY(2)=-1 THE 

N ÙSCREENCOPY, 1,3:PL0T l,y:DIAy »« 



û,y:DBAU i»10,y»5:DKAy i»40,y*5:DM 
W i*40,y-5:DR»U iU0,y-5:DRAV «tlO, 
y:PU)T n40,y:DRAy i*50,y:r«=3:G0T0 
1040 

1033 IF INKEY<8>=0 AND INKEY(1)--1 >VF 
AND INKEY(0)=-1 AND IKKEY(2)=-1 THE 

N ÙSCREENCOPY, 1,3: PLOT l,y:DRAB l-l 
0,y:DRAV l-10,y*5:DBAI( i-40,y*5:D8A 
y i-40,y-5:DRAV i-10,y-5:D8AW K-10, 
y:PLOT i-40,y:DRAV «-5O,y:rv=4:GOT0 
1040 

1034 GOTO 1030 >LK 

1035 PLOT i*5,y*25:DRAV i*15,y<25:P >KF 
LOT i*5,y«25:DRA¥ »»9,yt29:PL0T i*5 
,y*25:DRAV i»9,y«22:RETURN 

1036 PLOT x»5;y-25:DRAV M5,y-25:P >KU 
LOT i»5,y-25:DRAy i*9,y-29:PL0T H5 
,y-25:DBAy l*9,y-21:RETURN 

1037 PLOT i*25,y*5:D8Ay i*25,y*15:P >HK 
LOT i*25,y*5:DRAV x+21,y*10:PLOT H 
25,y»5:DRAN i*28,y»10:RETURN 

1038 PLOT x-25,y*5:D«Ay i-25,y*15:P >«A 
LOT «-25,y»5:DRAW ï-21,y+10:PL0T l- 
25,y*5:D8Ay i-29,y*10:RETURN 

1040 IF syib=15 TUEN ON rv GOSUB 10 >I)T 
35,1036,1037,1038 

1041 i=i-8:y=y»S:PRINT CHR«(23);CHR >IY 
»(1);:CH1»=CHR»(24):CH2«="":CH3»=" 
:CH4»=":CHS«="":G0SUB 233O:G0T0 60 
1100 'mmmcondensateurniH»»»» >IE 

1110 PRINT 11, "direction ?" >Zy 

1111 TAG:HOVE K,y:PRINT CHRIU2S);: >HV 
TAGOFF :PRINT CHR»(23);CHRI<0) j:i=« 
«B:y=y-5 

1120 IF INKEY(0)=0 AND IMŒT<B>--1 >RH 
AND INKEY<1)=-1 AND INKEY12>=-1 THE 
N ÙSCREENC0PY,1,3:PL0T I,Y:DRAy l,y 
*10:PL0T i-10,y*10:DRAy i*10,y*10:P 
LOT i-10,y*15:DÏAy «*10,yH5:PL0T i 
,y»15:DRAR i,y*25:PL0T i,y«10:G0T0 
1199 

1130 IF INKEY(2)=0 AND INKEY18)=-1 >TC 
AND INKEY<1>=-1 AND INKEY<0)=-1 THE 
N Ù5CREENC0PT,1,3: PLOT I,ï:D8»y l, 
y-10:PL0T »-10,y-10:DRAy i*10,y-10: 
PLOT i-10,y-16:0ÎAy l*10,y-16:PL0T 
i,y-16:DMV i,y-26:PL0T i,y-10:GOTO 
1199 
1140 IF INKEY<1)=0 AND INKEY(8>=-1 >TQ 
AND INKEY<0)=-1 AND INKEY(2)=-1 THE 
N ÙSCREENCQPY,1,3: PLOT I,Y:DRAV H 
10,y:PL0T i«10,y*10:DRAy ï»10,y-10: 






LMiiiinii 



PLOT i»17,y*10:DRAy i*17,y-10:PL0T 
i»17,y:DRAV i«2(",y:PL0T i«10,y:G0T0 
1199 

1150 IF INKETIBl-0 AND 1NKEYU>=-1 >RR 
AND INKET(0)--t AND 1HKET(2)=-1 THE 
N ÙSCREENC0PY,1,3:PL0T X,Y:ORAU l-l 
0,y:PLOT »-10,y*10:DRAy i-10,y-10:P 
LOT l-17,y*10:DRAV «-17,y-10:PLOT « 
-17,y:DRAy i-27,y:PL0T l-10,y:G0T0 
1199 
1160 GOTO 1120 >LK 

1199 PRINT CHRI<23);CHR»(l):z=i-B:y >VT 
=y*5:CHlt=CHR»l24):CH2»=":CH3»=": 
CH4«="":CH5»="":G0SUB 233O:G0T0 60 

1200 TAG:HOVE i,y:PRINT CHRN125);: >AQ 
TAG0FF:i=i*8:y=y-5 

1201 PRINT CHR»(23);CHR»(0> >VT 

1210 'm»iiu«transistor»»«»tM« >IG 

1211 PRINT 11," NPN (N)" >UH 

1212 PRINT 11," PNF (P)" MM 

1213 IF 1NKEY(46)=0 THEN ÙSCREENCOP >FH 
ï,l,3: PLOT H54,Y-12:DRAy X*49,Y-1 
3:PL0T It54,Y-12:DRAW Xt52,ï-9:G0T0 

1220 

1214 IF INKEÏ(27)=0 THEN ÙSCREENCOP >BG 
Y,1,3:PL0T I»40,Y-6:DRAy 1*45, Ml: 
PLOT X*40,Y-6:DRA¥ X*47,Y-7:G0T0 12 

20 

1215 GOTO 1213 >HD 

1220 PLOT i, y: DRAW «*40,v >UG 

1221 PLOT «t«Û,y<lÙ:DilAy x*4Ù,y-10 >BV 

1222 PLOT x»40,y*6:DRAV i*54,y«12:D >RV 
RAV l»54,y»32 

1223 PLOT xt40,y-6:D8AV xt54,y-12:B >RF 
RAV 1*54, y-32 

1224 DEG >YA 

1226 FOI f =0 TO 360 STEP 6 >RT 

1227 PLOT (l*40)*20«C0S<f),yt20«SIN >HH 
(f):NEIT 

1230 PRINT CHR«(23);CHR»(l);:x=x-B: >XL 
y=y+S:CHl«=CHRM24):CH2»="":CH3»="" 
:CH4»=":CH5»="":G0SUB 2330.-GOTO 60 

1300 ' itHittidiode sens Indirect d >IG 
roite»***»»" 

1301 TAG:H0VE l,y:PRINT CHMI125I;: >IÏ 
TAG0FF:PRINT CHRK23: ;CHR»(0l ;:«=«» 
8:y=y-5:G0T0 1350 

1303 PLOT i,y:DRAy l*20,y >UG 

1304 PLOT «t20,y*8:DRAy I«20,y-8:1F >DC 
dz=l THEN DRAV x*25,y-B 

1305 PLOT x*20,y:DRAN x*38,y*8 >TU 
4 1306 DRAV l»38,y-8:DRAy x*20,y >YB 



1307 PLOT i*38,y:DRAy «*60,y:IF 1=1 >PB 
THEN x=x*60 

1308 PRINT CHRH23);CHR»(l>;:i=i-8: >n 
y=y*5:CHl«=CHR«(24):ch2»=":CH3»=" 
:CH4»=":CH5«="":G0SUB 2330:G0T0 60 

1309 'iiiiiiiidiode sens indirect g >TF 
auchei»»""» 

1310 x=i-6O:G0T0 1303 >PQ 
1315 'liiiiiiidicde sens Indirect h >1C 
autïss»»*»* 

1320 PLOT i,y:DIAV x,y*20:PL0T i-8, >GD 
y*20:DRAW xt8,yt20:DBAV x,y*3B:DRAU 

x-8, y«20 

1321 PLOT l-8,y»38:DRAR l»8,y»38:IF >IL 
dz=l THEN PLOT x-8,y*38:DRAy i-8,y 

«33 

1322 PLOT x,y«38:DRAy x,y*60:lF 1=1 >PA 
THEN y=y*60 

1323 PRINT CHR»(23>;CHR»ll>;:i=x-8: >XP 
y=y*5:CHl»=CHRt(24):CH2»=":CH3«=" 
:CH4I=":CH5«=";G0SUB 2330:GOTO 60 
132B 'mimidlode sens indirect b >YG 

asMIIIHX 

1329 y=y-60:G0T0 1315 >PG 

1330 'immtsdtode sens direct dro >IK 
ite»»»***»» 

1331 PLOT x,y:DRAW i-20,y >UK 

1332 PLOT x-20,yt8:DRAV i-20,y-B:lF >IP 
dz=l THEN PLOT i-20,y*B:DRAW 1-25, 

yt8 

1333 PLOT «r20,y:DRAU «-38,y*B >TZ 

1334 DRAV i-38,y-8:DRAy i-20,y >TC 

1335 PLOT «-38,y:DRAy »-60,y:«=«-60 >ÏH 
:1F i=l THEN l=«*60 

1336 PRINT CHM(23)iCHRI(l);:i=i-B: >XU 
y=y*5:CHl»=CHR«(24l:CH2»="":CH3»=" 
:CH4»="":CH5»=":G0SUB 2330:G0T0 60 

1337 '••««•«ndiode sens direct (au >1i 
che*i«i>t«» 

1338 «=i-60:G0T0 1330 >PB 

1339 'liMHMdiode sens direct hau >ÏJ 

t*««i*«ll 

1340 PLOT l,y:DRAy i,y-20:PL0T 1-8, >HH 
y-20:DRAy i*8,y-20:DRAy i,y-38:DRAy 

x-8,y-20 

1341 PLOT x-8,y-38:DRAy H8,y-3B:PL >HR 
OT l,y-38:DRAy i,y-60:IF dz=l THEN 
PLOT x*8,y-38:DRAW l»8,y-33 

1342 IF 1=0 THEN y=y-60 >QE 
1344 PRINT CHR«(23);CHR»(l);:i=x-8: >IT 
y=yt5:CHl»=CHR«(24):CH2«=":CH3»=" 
:CH4»=""iCH5«="":G0S0B 2330:G0T0 60 



1348 'tiiKitidinde sens direct bas >TJ 
•«lux» 

1349 y=y-60:GOTO 1340 >PG 

1350 PRINT 11, "Direction !" >f« 

1351 IF INKEY(1I=0 AND INKEV(0)=-1 >KF 
AND INKEV(2)=-1 AND INKEY(8)=-1 THE 

N i=0:GOTO 1361 

1352 IF INKET(8I=0 AND IMŒÏ(0)=-1 >KH 
AND INKET(2)=-1 AND INKET(1)=-1 THE 

N i=l:GOTO 1365 

1353 IF INKEÏ(0)=0 AND INJŒÏ(1)=-1 >KH 
AND INKEÏ(2)=-1 AND IHKEY(81=-1 THE 

N 1=0: GOTO 1370 

1354 IF INKEr<2)=0 AND INKEÏ(1) = -1 >KQ 
AND INKEV(0)=-1 AND INKET(B)--1 THE 

N 1=1:G0T0 1375 

1360 GOTO 1351 >HH 

1361 PRINT 11, "Sens ?':FOR teip=0 T >QJ 
1000:NEXT 

1362 IF INKET(1)=0 THEN ÙSCREENCOP» >CA 
,l,3:x=l«60:G0T0 1330 

1363 IF INKEï(8)=0 THEN ÙSCREENCOPÏ >UE 
,1,3:G0T0 1303 

1364 GOTO 1362 >ND 

1365 PRINT 11, "Sens ?":FOR teip=0 T >0N 
1000 :NEXT 

1366 IF INKEi(ll=0 THEN ÙSCREENCOPY >CH 
,l,3:s=!*60:G0T0 133? 

1367 IF INKEi<8)=0 THEN ÙSCREENCOPY >0D 
,l,3:GOT0 1309 

1368 GOTO 1366 >PB 

1370 PRINT 11, "Sens ?":FOR teip=0 T >0J 
ÎOOO.'NEXT 

1371 IF INKEY(OI=0 THEN ÙSCREENCOPY >UY 
,1,3:G0T0 1315 

1372 IF INKEYt2>=0 THEN ÙSCREENCOPY >CP 
,l,3:y=y*60:G0T0 1339 

1373 GOTO 1371 >ND 

1375 PRINT 11, "Sens ?":FOR t«p=0 T >QP 
1000:NEXT 

1376 IF INKEY(0)=0 THEN ÙSCREENCOPY >UH 
,1,3:G0T0 132B 

1377 IF 1NKEY(2>=0 THEN ÙSCREENCOPY >CV 
,l,3:y=y)60:G0T0 1348 

137B GOTO 1376 >PD 

1398 'iit>»fiktfl«l«ii >ZD 

1399 '>ienu principal! >ZE 

1400 '««•*«««««fl«Klff >XH 

1401 ÙSCREENCOPY, 3,1 >QK 
1410 ÙSCREENCOPY, 2,1 :h=5:li=0:hp=l >FU 


1420 yiNDON I4,6,24,3,14:PAPEE 14,1 >RH 






:PEN I4,0:CLS 14 

1421 cll=CHR»<24):c2«="":c3»=":c4l >FP 

="":c5»="":c6»=":G0SUB 1450 

1430 LOCATE I4,1,1:PRINT 14," >YZ 

HENU:":LOCATE I4,1,2:PRINT 14," 



1440 LOCATE I4,1,3:PRINT 14," 



1441 LOCATE I4,1,11:PRIHT 14, "_ 



>LH 



>BN 



1447 ON 11 GOSUB 1450,1460,1470,146 >LT 
0, 1490, 1491 

1448 IF li-6 THEN 1510 >PE 

1449 li=li«l:GOTO 1447 >QB 

1450 LOCATE 14,1, 4:PR1NT I4:L0CATE >AH 
I4,1,5:PR1NT 14," ";Cl»;"Dessin en 
cours ";clt:RETURN 

1460 LOCATE I4,1,6:PRINT 14," ";c2» >TH 

i'Nouveau dessin ";C2t:RETURN 

1470 LOCATE I4,1,7:PRINT 14," "îC3« )NR 

{"Lecture ";c3l:RETURN 

1480 LOCATE I4,1,B:PRINT 14," ";C4* >QH 

("Sauvegarde *;c4*:RETURN 

1490 LOCATE I4,1,9:PRINT 14," ";C5< )QZ 
;"lipression ";c5l:RETURN 

1491 LOCATE I4,1,10:PRINT 14," ":C6 >LE 
«i'Help *;c6l:RETURN 

1510 IF INKEY(9)=0 THEN 2000 >VX 

1520 IF INIŒY(2)=0 THEN hp=h:h=htl >BD 

1521 IF INKEY(2)=0 AND h>10 THEN h= >BD 
5 

1522 IF INIŒY(2)=0 THEN GOTO 1540 >ZU 

1530 IF INKEY<0>=0 THEN bp=h:h=h-l >BE 

1531 IF INK£Y(0>=0 AND h<5 THEN h= >BP 
10 

1532 IF INKEY<0>=0 THEN GOTO 1540 >ZT 

1533 GOTO 1510 >HG 

1540 IF h=5 AND hp=10 THEN cl*=CHR« >BR 
(24):c6*='":G0SUB 1450:G0SUB 1491:G 
OTO 1510 

1541 IF h=5 AND hp=6 THEN clt=CHRI( >ZA 
24):c2«='":G0SUB 1460:G0SUB 1450:G0 

TO 1510 

1550 IF h=6 AND hp=S THEN cl«="":c2 >ZA 
I=CHS»( 24): GOSUB 1450:G0SUB 1460:G0 

TO 1510 

1551 IF h=6 AND hp=7 THEN c2*=CHR*( >ZH 
24):c3»=":G0SUB 1470:G0SUB 1460:G0 

TO 1510 

1560 IF h=7 AND hp=6 THEN c2t='":c3 >ZH 
«=CHR*I24):G0SUB 146O:G0SUB 1470:G0 
TO 1510 



1561 IF h=7 AND hp=8 THEN c3*=CHR*( >AG 
24l:c4l="":G0SUB 14B0:G0SUB 1470:G0 
TO 1510 

1570 IF h=8 AND hp=7 THEN c3$=":c4 >AG 
«=CHRI(24):G0SUB 147O:G0SUB 1480:G0 

TO 1510 

1571 IF h=B AND hp=9 THEN c5»="":c4 >AP 
i=CHR» 124): GOSUB 149O:G0SUB 14B0:G0 

TO 1510 

1580 IF h=9 AND hp=B THEN c4l="":c5 >AP 
*=CHE»(24):G0SUB 14BO:G0SUB 1490:G0 

TO 1510 

1581 IF h=9 AND hp=10 THEN c6l=":c >BK 
5I=CHRI(24):G0SUB 1491.-G0SUB 1490:G 
OTO 1510 

1590 IF h=10 AND hp=9 THEN cSI=":c >BH 
6*=CHRI(24):G0SUB 149O:G0SUB 1491 tfi 
OTO 1510 

1591 IF h=10 AND hp-5 THEN cl*="":c >BV 
6I=CHRI(24):G0SUB 1491.-G0SUB 1450:G 
OTO 1510 

1592 GOTO 1540 >NE 
1600 GOTO 1540 >NE 

1700 '••"• aipli op ••>•• >YA 

1701 TAG:HOVE «,y:PRINT CHRK125);: >KN 
TAGOFF:PRINT CHR«(23l;CHR«(0);:i=H 
8:y=y-5:ùSCREENÇ0PÏ,l,3 

1702 PLOT i,y:ORAy i«20,y >UK 

1703 DRAV i*20,y«10:DRAU H«0,y-10: >GH 
DRAV i»20,y-30:DRAy H20,y 

1704 PLOT l,y-20:DRAy i*20,y-20 >ZM 

1705 PLOT lt60,y-10:DRAy K80,y-10 >BH 

1706 l=i-fl:y=y»5:PRINT CHRI(23);CHR >IG 
«(1);:CH1«=CHBI(24):CH2»="":CH3I=" 
:CH4»=":CH5»="«:G0SUB 2330:G0T0 60 
1710 'mu Diode zener mil >YB 
1720 dz=l :GOTO 1300 >NT 

1799 '•»«» générateur •••» >ZJ 

1800 TAG:HOVE i,y:PRINT CHRK125);: >KN 
TAG0FF:P8INT CH8»(23);CHR»(0) ;:«=!« 

8 :y=y-5: ÙSCREENCOPY, 1,3 

1811 PLOT x,y:DRAy z,y«BO >UT 

1812 FOR jen=0 TO 360 STEP 4 >UL 
1B13 DEG >TE 

1814 PLOT «♦15»C0S(|en),ly*40H15«S >KB 
IN(jen) 

1815 NEn gen >PA 
1B30 >=i-8:y=yt5:PRINT CHR*(23);CHR >IE 
*(l)i:CHl»=CHR»(24):CH2»="":CH3»=" 
:CH4I="":CH5»="":G0SUB 2330:GOTO 60 

1850 'm«« loteurs »«««< >YG 

1851 TAG:NOVE i,y:PRINT CHRK125);: >KV 















TAG0FF:P1IHT CHMl23);CHM<0>;:i=H 
B:y=y-5:ÙSCBEENC0PY,1,3 

1862 PLOT x,y:DBAU «,y+25:PLOT l,y* >UY 
55:DBAU i,y*80 

1653 FOB iot=0 TO 360 STEP 4 >W 

1854 DEG >YK 

1855 PLOT «tl5«C0Sllot),(y«40H15«S >LU 
Ikdot) 

1856 NEIT «et >RH 

1857 TAG:M0¥E »-6,yt45:PBINT *M";:T >JG 
AGOFF 

1858 K=x-B:y=y*5:PfilNT CKB«(23);CHB >IQ 
»(1>;:CH1$=CHBI(24):CH2»=":CH3»=" 
:CH4«=":CH5»=":G0SUB 2330:G0T0 60 
1860 '»<•< Interrupteurs «»•« >YH 

1561 TAGiHOVE x,y:PRINT CHBK125);: >HV 
TAGOFF:PBIHT CHR»(23) ;CHS$(0) ; : ï=i+ 
8:y=y-5 

1562 GOTO 1900 >NE 

1863 PLOT «,y:DBAU «t20,y:DBAU «HO >YF 
,y«10:PL0T «*40,y:DBAU «*60,y:BETUB 

1864 PLOT i,y:DBAU «,yt20:DBAU «-10 >YJ 
,yUO:PLOT i,y**0:OSAU «,y*SO:RETUB 

N 

1865 «=«-8:y=y*5:PRiNT CHB*(23);CHB >IN 
»(l>i:CHl$=CHR*{24):CH2»="":CH3»="" 
:CH4«="\CHS»="":G0SUB 2330:G0T0 60 

1900 CLS ll:PBIHT 11, "Direction ?" >EE 

1901 IF INKEY(1>=0 AND INKEY(8)=-1 >AI 
AND INKEY<0>=-1 AND 1NKEY(2)=-1 THE 

N ÙSCGEENCOPT ,1,3s GOSIiB 1663:G0T0 1 
865 

1902 IF INKEY<8)=0 AND INK£Y(i)=-l >CZ 
AND INKEY(0>=-1 AND INKEY(2>=-1 THE 

N ùSCREENC0PY,l,3:i=i-6O;GOSUB 1663 
:«=«*60:G0T0 1865 

1903 IF 1NKEY(0)=0 AND IMCEÏ(8)=-1 >AA 
AND INKEY(1)=-1 AND INKEY<2)=-1 THE 

N ÙSCBEENCOPY, 1,3:G0SUB 1864:G0T0 1 
865 

1904 IF INKEY<2)=0 AND IMŒY<8>=-1 >CG 
AND INKEÏ(1)=-1 AND INKE1<0)*-1 THE 

N ùSCREENC0Pf,l,3:y=y-60:G0SUB 1664 

:y=y<60:G0T0 1865 

1910 GOTO 1901 >KK 

1920 '«m» fusibles ««««« >YE 

1922 TAG:HOVE «,y:PBINT CHRX12S);: >HT 

TAGOFF:PBINT CHB»123) ;CHS*(0> ; : s=a+ 

8:y=y-5 

1924 CLS ll:PBINT il, 'Direction ?' >EL 

1926 IF INKEY(0>=0 THEN ÙSCBEENCOPY >PG 



,1,3:PL0T «,y:DRAU i,y«50:PL0T i«5, 
y»10:DBAW l-5,y»10:DBAU i-5,y*40:Dfi 
AU H5,y*40:D8AU i»5,y*10:GÛT0 1950 
1928 IF INKEY(2!=0 THEN ÙSCBEENCOPY >PZ 
,1,3:PL0T i,y:DBAU i,y-50:PL0T 1*5, 
y-10:DBAU «-S,y-10:DBAU i-5,y-40:DB 
AU i»5,y-40:DRAB i*5,y-10:G0T0 1960 
1930 IF INKEY<1>=0 THEN ÙSCBEENCOPY >PC 
,1,3:PL0T «,y:DBAU «*50,y:PL0T 1*10 
,y*S:DRAU i*40,y*5:DBAU «*40,y-5:DB 
AV i«10,y-5:DBAU i*10,y*5:G0T0 1950 
1932 IF INKEY(8l=0 THEN ÙSCBEENCOPY >PA 
,1,3:PL0T «,y:DBAU i-50,y:PL0T «-10 
,y*5:DRAU l-40,y*5:DRAU «-40,y-5:Dfi 
AU i-10,y-5:DBAU x-10,yt5:G0T0 1950 

1949 GOTO 1926 >PJ 

1950 «=«-8:y=yt5iPRINT CHBI(23);CHB >IH 
*(1);:CH1»-CHB*(24) :CH2»=":CH3»="" 
:CH4»=":CH5»=":G0SUB 2330:G0T0 60 
i960 'mu point de Jonction »•«•• >YJ 
1965 ÙSCBEENCOPY, 1,3 >QB 

1970 TAGiHOVE x,y:PBINT CHB*(125>;: >PG 
TAGOFF:PBINT CH8»(23)iCHB»(3); 

1971 TAG:HOÏE «t3,y*3:PBINT CHB»(23 >PD 
1);:TAG0FF 

1981 PBINT CH8t(23);CH8»(l);:CH18=C >AV 
HfiN24):CH2*="":CH3»=*":CH4*=":CH5 
»=":GOSUB 2330iG0T0 60 
1997 ' ii««H««tliixii««iif*««««tiia >2J 
lin 

199B '•«» festion du tenu principal >2K 
«il 

1999 'iiliftfiitiMiifilmtiiiiitHmix >AA 
liii 

2000 IF h=5 THEN 2050 >NQ 
2005 IF b=6 THEN 2100 )»T 
2010 IF h-7 THEN 2150 >NV 
2015 IF h=8 THEN 2200 >NÏ 
2020 IF h=9 THEN 2250 >NZ 
2025 IF h-10 THEN GOSUB 21000;G0SUB >CJ 

3000;chl»=CHB»<24):ch5»="";PEN 1:P 
APEB OiGOSUB 2330:GOTO 60 
2030 GOTO 2000 >LE 

2050 HODE liGOSUB 3000:ùSCBEENC0PY, >UZ 
1,3:TAG:H0VE »,y:PRINT CKB$U25);:T 
AG0FF:chU-CHR«(24):ch5M":G0SUB 2 
330:GOTO 60 

2055 END >ZA 

2100 UINDOU 1, 40,17, 25:PAPEB 1:PEN >IJ 
0:CLS:LOCATE 1,4:PBINT " Sauvegard 
e circuit précèdent (0/N)"; 
2105 IF INKET<34)=0 THEN aS:CAT:LO >DU 



CATE 4,25:CALL 4BB03: iNPKT "Noi du 
circuit :",circ»:BOD£ 1:ÙSCBEENC0PY 
,1,3:TAG:N0VE i,y:PHNT CHB«(125);: 
TAG0FF:5AVE Circ»,b,4C0OO,MOO0:lt0D 
E 1:G0T0 30 

2110 IF iWŒY<46>=0 THEN UINDOU 1,4 >NB 
0,1,2S:PAPER 0:PEN 1:CLS:ÙSCBEENC0P 
Y, 3,1: chl»=CH8»(24):ch5t=":G0SUB 
3000:GOSUB 2330:G0T0 30 
2120 GOTO 2105 >HA 

2150 UINDOU 1,40,17,25:PAPEB 1:PEN >BJ 
0:CLS:CAT:LOCATE 4,25:CALL UIB03.-IN 
PUT "Noi du circuit i",circ»:HODE 1 
:LOAD circ»,aC000:G0SUB 3000:chl»=C 
HR*(24):ch5»=":PEN 1 : PAPES O:G0SUB 
2330:GOTO 60 
2155 END >ZB 

2200 UINDOU 1,40,17,25:PAPE8 1:PEN >HT 
0:CLS:CAT 

2205 CALL IBB03:LOCATE 4,25:INPUT ' >JK 
Noi du circuit :",circl 

2206 IF circ»=" THEN 2200 >BF 
2210 HODE 1 : ÙSCBEENCOPY, 1, 3 :TAG:N0V >ïï 
E l,y:PRINT CKR»(125);:TAG0FF:SAVE 
circ»,b,&COO0,l4OO0:G0SUB 3000:chl« 
=CHB»l24l:cn5»="":PEN 1:PAPE8 OiGOS 

UB 2330: GOTO 60 

2250 ÙSCBEENCOPY, 1,3:TAG:H0I/E «,y:P >MX 

BINT CHB»(125);:TAG0FF:ÙSCREENC0PY, 

3,1:G0SUB 10000:G0T0 1400 

2330 PBINT 12,' ";chU|" DEPL. ■; >TE 

chl«;ch2»;' TBACE ";CH2»;CH3lj" SYH 

BOL ";CH3»;CH4»i" EFFACE ":CH4$;CH5 

<;" HENU ';CH5«;:BETUBN 

2500 '»i» portes logiques HiH >IK 

2501 '«il» portes and,or,nand,nor >YA 
iiiii 

2502 TAG:M0ïE x,y:PBINT CHBX125)!: >KN 
TAG0FF:PB1NT CHM(23);CHR4<0) ::«=«* 

8 :y=y-5: ÙSCBEENCOPY, 1,3 

2503 PLOT »,y:DBAU «*20,y >UK 

2504 PLOT «,y-20:D6AU M»20,y-20 >ZL 

2505 PLOT x*20,y-30:DBAU «*20,v»10: >KD 
DBAU »»60,y*10:0BAU i*60,y-30 

2506 DBAU «*20,y-30;PL0T «*60,y-10: >TP 
DBAU 1*80, y-10 

2507 IF syib=9 THEN TAGiHOVE l«30,y >AA 
-3:PBINT "t';:TAGOFF 

2508 IF syib=10 THEN TAG:HOVE «25, >PU 
y-3:PBINT CHR»U26>;'r;:TAG0FF 

2550 i=«-8:y=y+5:PRlNT CKB*(23)jCHB >Œ 
♦ ( 1 ) ; :CH1»=CHB»(24) :CH2»=" :CH3I=" 



:CH4«=":CK5»=":G0SUB 2330:G0T0 60 

2600 ÙSCBEENCOPT, 1, 3:PBIIfT CHHC23! >FK 

;CHM(0)i:TAG:N0VE I*67,y-8:PB1NT C 

KR»(lll);:TAG0FF:ùSCBEENC0PY,3,l:sy 

■b=9:G0T0 2501 

2610 ÙSCBEENC0PY,1,3:PBINT CHBl(23) >HR 

;CKR»(0);:TAG:HOVE I«67,y-8:PB1NT C 

HB*(lll);:TAG0FF:ùSCBEENC0PY,3,l:sy 

■b=10:GOTO 2501 

2650 '»«•«« relais «»•«« >YF 

2652 TAG:HOVE i,y:PBlNT CHBX125);: >KV 
TAG0FF:PB1NT CHR«(23l;CHB«(0);:i=i« 
8:y=y-5:ùSCREENC0PY,l,3 

2653 ÙSCBEENCOPY, 3,1:CLS I1:PB1NTI1 >ZY 
."Direction ?" 

2654 IF INKEY(0)=0 THEN ÙSCBEENCOPY >UH 
,1,3:G0T0 2660 

2656 IF INKEY<2)=0 THEN y=y-60:ùSCB >CY 
EENC0PY,1,3:G0T0 2660 

2657 GOTO 2654 >PE 
2660 PLOT i,y:DBAU j,y*20:DRAU n-20 >JÏ 
,y*20:DBAU »-20,y»40:DBAU I»20,yt40 
:DBAU i«20,y*20:DBAU l,y«20 

2664 PLOT i,y«40:DBAU n,y*60 >UU 

2675 i=i-8:y=y*5:PBINT CHfi»(23);CHB >» 

»(1)!:CH1»=CHR»(24):CH2»= , ":CH3»=" 

:CH4M":CH5»=":G0SUB 2330:G0T0 60 

3000 UINDOU 12,1,40,1, l.'PAPEB 12,1: >JK 

PEN 12,0 

3010 UINDOU 11, 18,35, 3,4:PAPE8 11,1 >KQ 

:PEN 11,0 

3020 RETURN >EJ 

3050 'ihii transforiateur m" >YA 

3053 TAG:«OVE x,y:PBINT CHBI1125);: )KQ 

TAG0FF:PB1NT CHB*(23);CHB»(0);:i=i* 

8:y=y-5:uSCEEENC0PY,l,3 

3056 PLOT i,y:DBAU i,y-30:PL0T l,y- >UV 

60:D8AU i,y-90 

3059 PLOT i*20,y:DBAU ><20,y-30:PL0 >GL 

T «*20,y-60:0BAU i»20,y-90 

3062 DEG >YC 

3065 FOB «=0 TO 360 STEP 4 >BU 

3068 PLOT x«15iC0S(t),(y-45)tl5>SIN >FZ 

(f) 

3071 PLOT (Ht20)*15»C0S(f),(y-45Hl »0t 

5iSIN(f) 

3074 NEIT >LF 

3077 >=i-B:y-y«5:PBINT CHM(23);CHB >K 

MU î ;CH1MCHB»<24> :CH2»="«:CH3I=" 

:CH4«=":CH5«="':G0SUB 2330:GOT0 60 

4000 'lit» bornes avec nutero ou I >IG 

ettre •"•« 



4003 TAGsHOVE i,y:PBINT CHK«(125);: >GH 
T AGOFF: ÙSCBEENCOPY, 1,3 

4004 PBINT CHM(23):CHB»(3); )UL 

4007 CLS IliPKINT 11, 'No suivant IN >HC 
)" 

4008 PBINT 11, 'Autre (A)' >UF 

4009 IF IMKETC67)=0 THEN CLS ll:CAL >GD 
L UB03:INPUT 11,'Nui/letr :?',ca«: 
GOTO 4015 

4010 IF INKEY146I-0 THEN Ù5CBEENC0P >HM 
Y,1,3:TAG:H0VE i,yt3:PRINT CHMdll 
);:IUVE i-14,yH7:PBINT bo;:TAGOFF: 
bo=boH:GOTO 4020 

4011 GOTO 4009 >HG 
4015 ÙSCBEENCOPY, 1,3:TAG:H0WE I,J*3 >QF 
:PBINT CHR*(1U);:H0VE l-14,y417:PB 

INT ' "; cal ::TAG0FF: GOTO 4020 

4020 PBINT CHBI(23);CHBI(1);:CH1MC >AF 
HB$124):CH2»=":CH3I="":CH4I="":CH5 
M":G0SUB 2330:G0T0 60 

4021 '•■»< bornes sans nuaero •••< >ÏK 

4022 TAG:HOVE >,y:PBlNT CHBK125):: >GJ 
TAG0FF:ÙSCREENC0PY,1,3 

4023 PBINT CHBII23);CHBI(3);:ÙSCBEE >BT 
NC0PY,1,3:TAG:II0IIE i,y«3:PBINT CHB» 
(1U);:TAG0FF 

4024 PBINT CHB»123);CHR«U);:CM1*=C >AK 
Hfil(24):CH2»="":CH3*="":CH4l='":CH5 
l=":G0SUB 2330:GOTO 60 

4030 '•<»<■ LAMPES •••" >IK 

4031 CALL UD19 >UH 
4033 TAG:HOVE >,y:PBINT CHBK125);: >KP 
TAGOFF:PBINT CHBI(23l;CHB«(0);:>=i< 
8:y=y-5:ùSCBEENC0PY,l,3 

4036 CLSI1:PBINT 11, 'Direction :?' >FY 

4039 IF 1NKEY10>=0 THEN ÙSCBEENCOPY >GA 

,1,3:G0SUB 4050:G0T0 4049 

4042 IF INKEY(2)=0 THEN ÙSCBEENCOPY >BJ 

,l,3:y=y-70:G0SUB 4O5O:y=y*70:G0T0 

4049 

4045 IF INKEY(U=0 THEN ÙSCBEENCOPY >GZ 

,1,3:G0SUB 4060:GOTO 4049 

4047 IF INK£Y(8)=0 THEN ÙSCBEENCOPY >BT 
,l,3:i=i-7O:G0SUB 4060:i=i«70:GOTO 
4049 

4048 GOTO 4039 M 

4049 i=i-8:y-y«5:PBINT CHB«l23l;CHR >iK 
«U);:CH1»=CHB»(24):CH2M":CH3I="" 
:CH4»=":CH5*=":G0SUB 233O:G0T0 60 

4050 PLOT i,y:DBAU i,y«20:PL0T i.yf >UD 
50:DSAU i.ytfO 



4051 DEG >YB 

4052 FOB f=0 TO 360 STEP 4 >BQ 

4053 PLOT «U5tC0S<f),(yt35)tl6«SIN >FQ 
(f) 

4054 NET f >ÏF 

4055 PLOT »-9,y*24:DfiAU i*9,y*46:PL >FF 
OT l*9,y*24:DBAU ï-7,y»46 

4056 BETUBN >FJ 

4060 PLOT i,y:DBAU i»20,y::PL0T US >VL 
0,y:DRAU l*70,y 

4061 DEG >YC 

4062 FOB f=0 TO 360 STEP 4 >Bfi 

4063 PLOT (i*35)*15»C0S((),y«15«SlN >FB 
(f) 

4064 NEIT f >VG 

4065 PLOT «t24,y-9:DRAU l*46,y*9:PL >FG 
OT n24,yt9:DBAU x*46,y-7 

4066 RETURN >FK 

5000 '•««« flèches de tension •<•• >IH 
i 

5001 TAG:HOVE l,v:PBINT CH8K125);: >KK 
TAGOFF:PBINT CHB*(23l;CHB»(0);:i=lt 

8 :y=y-5: ÙSCBEENCOPY, 1,3 

5002 CLS ll:PBINT 11, "Direction ?' >EB 

5003 IF INKEYI2I-0 THEN ÙSCBEENCOPY >EU 
,1,3:PL0T x,y:DBAU «-4,y*5:PL0T i,y 
:DBAU it4,y*5:GOT0 5010 

5004 IF INKEY(0>=0 THEN ÙSCBEENCOPY >EI 
,1,3:PL0T «,y:DBAU i-4,y-5:PL0T i,y 
:DBAU «*4,y-5:G0T0 5010 

5005 IF INKEY(8»=Û THEN ÙSCBEENCOPY >EC 
,1,3:PL0T x,y:DBAU i*5,y-4:PL0T i,y 
:DBAU l«5,y«4:G0T0 5010 

5006 IF INKEYU>=0 THEN ÙSCBEENCOPY >EA 
,1,3:PL0T i,y:DEAU l-5,y-4:PL0T l,y 
:DBAU i-5,y«4:G0T0 5010 

5007 GOTO 5003 >HH 
5010 «=i-B:y=y*5:PB(NT CHB«123);CHB >1Y 
»(1);:CH1MCHB»(24):CH2I=":CH3»=" 
:CH4«=":CH5»=":G0SUB 2330:G0T0 60 
5100 '»<<« bobine •••» >ll 
5110 TAG:HOVE x,y:PR!NT CHBK125);: >HK 
TAGOFFlPBINT CHB*(23)iCHB9lO);:n=H 
8:y=y-5 

5115 yl=l:xl=« >EJ 

5120 PBINT 11, "Direction?" >YI 

5123 IF INKEY<0>=0 THEN bob=3:G0T0 >FK 
5130 

5124 IF INKEY(2);0 THEN bob=2:G0T0 >F« 
5130 

5125 IF INKEY(8)=0 THEN bob=l:G0T0 >FU 
5130 









2JIIIIIIII. 



5126 IF INKB(l)-0 THEN bob=0:GDTO >FL 
5130 

5127 GOTO 5123 >ND 

5128 PBINI 11, "Sens? 1 >QU 

5130 IF bob=l AMD INKEÏ12)=0 THEN y >QT 
=y-8:GBT8 5200 

5131 IF bob=l AND INKEÏ(0>-0 THEN y >ZC 
=ytB:y=y«4B:G0T0 5200 

5132 IF bob=0 AND INKEY12)=0 THEN y >QV 
=y-8:GDT0 5210 

5133 IF bob=0 AHD INKEÏ(0)=0 THEN y >ZE 
=yt8:y=y*4B:G0T0 5210 

5134 IF bob=2 AND INKEV(8)-0 THEN l >QF 
=ï-8:GOÏO 5230 

5135 IF bob=2 AND 1NKEI(1)=0 THEN i >ZH 
=i*8:l=l*48:G0T0 5230 

5138 IF bob=3 AND IHKEÏ(8)=0 THEN i >BD 
=i-8:G0T0 5220 

5137 IF bob=3 AND lMtEV(l>-0 THEN l >AB 
=«t48:«=«*8:G0T0 5220 

5199 GOTO 5130 >PA 

5200 ùSCBEEHCOPr. 1,3:DEG:FDR «=90 T >fU 
270 STEP 5:PL0T it8iCBS<f>,y»8iSl 
N(f):PL0T ite«C0S(f),<y-I6)*8»SiMS 
):PL0T H8iCBS(f),(y-32HBiSlN(f):P 
LOT «*8«C0S(n,ly-48n8»SIN(f):NQT 
:GOTO 5900 

5210 ÙSCEEENC0P!U.3:DEG:F0E f=2( r >AI 
TO 450 STEP 5:PL0T «*8«CÛSIS i,y«B«S 
lN(f):PLOT i*BiC0Slf),(.y-16)*BiSIN< 
f):PLOT itB«CQS(»Uy-32H8«Sl!Hf): 
PLOT »t8«C0Slf),ly-48ne«SIN<l):NEI 
T:GOTO 5900 

5220 QSCIlEENC0Pr,l,3:D£G:F0t f-0 TO >W 
180 STEP 5:PL0T HBlCOSIf ),y*B«SIN 
(f):PLOT <i-16)*8iC0S(f),y*8iSIN(f) 
:PL0T ll-32H8iC0S(f),y*8iSIN(f):PL 
OT (i-48)»8»CÛS(f),yt8»SIN(f):l(EÏT: 
GOTO 5900 

5230 ùSCREENCOPr,l,3:DEG:F0I (-160 >AZ 
TO 360 STEP 5:PL0T i+8iC0S<f),y*8iS 
IN(t):PLOT d-16H8iC0Sm,y+8iSIN( 
():PLOT <x-32>*8iC0S<f),y«8iSIN(t): 
PLOT <x-48)*8lC0S(f>,y*BiSIN(f):NEI 
T:G0T0 5900 

5900 IF bob=l AND y<>ii*48 THEN y=y >QZ 
-48:G0T0 5999 

5910 IF bob=0 AND yO«iM8 THEN y=y >QZ 
-48:G0T0 5999 

5820 IF bob=2 AND HKEVC8I*0 THEN i >TÏ 
=«**8:G8T0 5999 
5930 IF bob=3 AND IN1ŒÏ(8)=0 THEN l >TA é 



=i*48:G0T0 5999 

5999 PBINT CHBt(23);CHR$(l);:i=«-8: >U 
y=y+5:CHl*=CHB»(24):ch3*="":G0SUB 2 
33O:G0T0 60 

6000 GOTO 5130 >HC 
9131 IF syib=23 THEN 5100 >TC 

9997 'iuiiihiiiiiiiiihiiiiiïiii >AG 
mit 

9998 'm sous prûgraue iipresslo >AH 
n ••• 

9999 'tittiiiittiitmitlitiilllll >AJ 

IIIII 

10000 ùSCBEEdCOPY, 4,1: PAPE» I2,0:PE >BV 
N I2,0:CLS 12 

10001 PBINT CHfi»(23);CHfi»(0); >WH 

10010 PLOT 1,1:DUU 639,1:DBAU 639, >HI 
399: DRAU 1,38B:DMV 1,1:PLDT 1,375: 
DRAU 639,375 

10011 PLOT 380,375:DRAU 3B0,400:PL0 >ZC 
T 524, 375: DRAU 524,400 

10020 ùSCiEENC0Pï,3,l >RJ 

10030 HINDOU I5,10,30,11,14:PAPEB I >LL 

5,1:PEN I5.0.-CLS IS:CALL 4BB03: INP 

UT 15, "Noa du dessin ?",noit 

10040 ÙSCBEENC0PÏ,1,3:TAG:H0VE 5,39 >CB 

5:PBINT noi»;:TAG0FF:ùSCBEENC0PÏ,3. 

1 

10050 CLS I5:INPUT 15, "DATE JJ?",JJ >DG 
» 

10051 INPUT 15,' HM?",HMt 

10052 INPUT 15,' AA?",AA» 

10053 date»=jjl*"/"tiil*"/"taa* 

10054 INPUT 15, "No FOLIO ?", folio» 

10058 ùSCBEENC6Pr,l,3:TAG:H0VE 527, 
395:PBINT 'Folio "*folio»j:TAGOFF:ù 
SCE£ENC0PÏ,3,1 

10059 ùSCBEENC0Pï,l,3:TAG:H0VE 385, 
395:PB1NT datel;:TAG0FF:ù5CB£ENC0PÏ 
.3,1 

10060 ÙSCREENC0PÏ,1.3 

10061 CLS I5:PBINT 15, "VIDAGE :(P)/ >BD 
(G)":CALL IB806:IF INkEÏ(27)=0 THEN 

ùSCBEENCOPY,l,3:ùSCREENeOPï,3,i:ùH 
C0Pn:ùSCBEENC0P(,l,4:ùSCBEENC8Pr,3 
,1:PBINT CHB*(23);CHE«(2);:G0T0 60 

10082 uSCBEENC0P*,l,3 >BF 

10083 ilSCBEENCOPT . 3, t s ÙHC0PY2 : ÙSCBE >U 
ENC0PÏ,l,4:uSCBEENC0Pl,3,l:PRINT CH 
B»(23>;CHR»(2);:G0T0 60 

21000 •Bifisuiiiniimitn >CJ 

21010 '• HELP • >CK 

21020 'Hiiiisiitinsiiiiai >DA 



21030 MODE 2:L0CATE 30,13:PBINT '(V >JN 

Hdeo / (l)ipriiante !" 

21040 IF ISKEÏ(55)=0 THEN i=0:G0T0 >GD 

21065 

21050 IF IWŒï(35)=0 THEN PBINT 18. >ZD 

CHB»<27>+"«"tCHR»(l>:c=8:i=0:G0SUB 

21065 

21060 GOTO 21040 >AJ 

21065 CLS >FK 

21070 PBINT II," >UY 

HELP:" 
21075 PBINT ll:PBINT ll:PBINT li >AZ 
21060 PBINT ItiPBINT 11,' >UV 

FI : Fonction déplacèrent" 
21090 PBINT li:PRINT II,' >KA 

F2 : Fonction trace" 
21100 PBINT lltPBINT 11,' >PQ 

F3 : Fonction chou de syibo 
1 (1 A 23)' 
21110 PEINT li:PBINT li," >HG 

F4 : Fonction efface " 
21120 PBINT ll:PBINT 11," >ZE 

F5 : Fonction insert teite " 

21130 PBINT li:PBINT 11," >¥ï 

F6 : Henu principal : - Nouv 
eau dessin " 

21140 PEINT 11," >VB 

- Dessin en cou 



>VG 


rs ■ 






>ÏF 


21150 PBINT li,' 




>PQ 


>IÏ 




- Lecture 




>CJ 


* 






>TK 


21160 PEINT li," 




>BD 




II 


- Sauvegarde 




>GB 


21170 PBINT 11," 




>TH 




■ 


- lipression 




>BB 


21160 PBINT 11," 




>HF 



- Help 

H 

21190 IF c=8 THEN i=c:c=0:GOTO 2107 >CF 



22000 CALL tB803:CALL 1BB06:H8DE 1: >PH 

8SCEEENC0PT,1,3:TAG:H0VE i,y:PBINT 

CKBN125) i :TAG0FF:ohl»=CHBI(24) :cn5 

§="":GOSUB 2330:G0SUB 3OOO:G0T0 60 

25000 IF DEBB-146 THEN ùSCBEENCOPr, >TG 

1,2:G0T0 1410 

25002 IF DEBB0146 THEN 1410 >W 

25010 CONT >QF 



20000 REM IMPRIMANTE 

20010 MEMORT 17FFF 

20020 FOR i=lAOO0 TO 4A480 

20030 BEAD al 

20040 b«="l"*al 

20050 c=VAL(b») 

20060 POKE i,c 

20070 HEIT 

20060 DATA 00,00,00,00,00,00,00,00, 

00,00,00,00,01, 15,AO,21,08,AO,C3,D1 

,BC,3E,A0,C3,89,A0,C3,EB,A1,C3,52,A 

3,C3,67,A3,C3,7C,A3,C3,87,A3,C3,97, 

A3,C3,A7,A3,C3,C5,A3,C3,D9,A3,C3,F7 

,A3,C3,15,A4,C3,3D,A4,48,43,4F,50,5 

9,Bl,48,43,4F,50,59,B2:BFJHmnm 

lii 

20090 DATA 45,50,53, 4F, CE, 45, 50, 53, 

4F,46,C6,49,4E,49,D4,43,4F,55,52,52 

,49,45,D2,50,49,43,C1,45,4C,49,54,C 

5,43,4F,4E,44,45,4E,53,C5,44,42,46, 

52,41, 00,47,52,41, D3,45,4C,41, 52,47 

,C9,49,54,41,4C,49,C3,00,CD,8D,A0,C 

8,3E,lE,32,07,A0,F5,C5:BEH««n«ni 

*at 

20100 DATA D5,ES,DD,E5,FD,E5,CD,2B, 

BD.21, 94,01, 22,00,AO,U,00,00,ED,53 

,02,AO,11,00,00,ED,53,02,AO,3E,1B,C 

D,E0,A1,3E,40,CD,E0,A1,3E,1B,CD,E0, 

A1,3E,31,CD,E0,A1,3E,1B,CD,E0,A1,3E 



,2A,CD,E0,A1,3E,05,CD,E0,A1,3E,40,C 

D,E0,Al,3E,01,CD,E0,Al:BEHmmm 

m 

20110 DATA ED,5B,02,A0,2A,00,A0,22, 

04,A0,CD,F0,BB,FE, 00,28,05,21, 06,A0 

, CB, F6, ED, 5B, 02, AO, 2A, 04, AO, 2B.2B, 2 

2,04,A0,CD,F0,BB,FE, 00, 28,05,21, 06, 

A0,CB,EE,ED,5B,02,A0,2A,04,A0,2B,2B 

, 22,04, A0,CD,F0,BB,FE,00,28,05, 21,0 

6,A0,CB,E6,ED,5B,02,A0:SEN>»ii«n> 

lit 

20120 DATA 2A,04,A0,2B,2B,22,04,A0, 

CD,FO,BB,FE,00,28,05,21,06,AO,CB,DE 

, ED, 5B, 02, AO, 2A, 04, AO, 2B, 2B, 22, 04, A 

0,CD,F0,BB,FE,00,28, 05,21, 06.A0.CB, 

86, ED, 5B, 02, AO, 2A, 04, AO, 2B, 2B.22, 04 

,A0,CD,FO,8B,FE,O0,28,O5,21,06.A0,C 

B,CE,ED,5B,02,A0,2A,04:EEHllllllttl 

lit 

20130 DATA A0,2B,2B,CD,F0,BB,FE,00, 
28,05,21, 06,A0,CB,C6,3A,06,A0,CD,E0 
,A1,3E,00,32,06,A0,ED,5B,02,A0,13,1 
3,ED,53,02,A0,21,80,02,A7,ED,52,7C, 
FE, 00, C2, DE, AO, 7D, FE, 00, C2, DE, AO, 3E 
,OA,CD,EO,A1,2A,00,AO,U,OE,00,A7,E 
D, 52, 22, 00, AO, 22,04, AO:REHtitttm« 

«Kl 

20140 DATA 3A,07,A0,3D,32,07,A0,FE, 

00,C2,AA,A0,3E,0A,CD,E0,A1,3E,1B,CD 

,EO,A1,3E,40,CD,EO,A1,FD,E1,DD,E1,E 

1,D1,C1,F1,C9.CD,2E,BD,38,FB,CD,2B, 

BD, 30, FE, C9.CD, EF, Al , C9, 3E, 5C, 32, 07 

,A0,F5,C5,D5,E5,DD,E5,FD,E5,CD,28,B 

D,ll,00,00,ED,53,00,A0:BEHitliM>«< 

m 

20150 DATA 21, 00, 00, 22, 02, AO, 21, 00, 

00,22,02, A0,3E,1B,CD,E0,A1,3E,40,CD 

,E0,A1,3E,1B,CD,E0,A1,3E,31,CD,E0,A 

1,3E,1B,CD,E0,A1,3E,2A,CD,E0,A1,3E, 

05,CD,EO,A1,3E,00,CD,EO,A1,3E,02,CD 

,E0,A1,2A,02,A0,ED,5B,00,A0,ED,53,0 

4,A0,CD,F0,BB,FE,00,2B:E£Hii«ttmt 

l«« 

20160 DATA 05,21, 06,A0,CB,F6,2A,02, 

A0,ED,5B,04,A0,13,ED,53,04,A0,CD,F0 

,8B,FE,00,28, 05,21, 06,A0,CB,EE,2A,0 

2,AO,ED,5B,O4,AO,13,ED,53,04,A0,CD, 

FO.BB.FE, 00,28,05,21, 06,A0,CB,E6,2A 

,02,A0,ED,5B,O4,A0,13,ED,53,O4,A0,C 

D,F0,BB,FE,00,28,05,21:EErlitltlttit 

l«l 

20170 DATA 06,AO,CB,DE,2A,02,AO,ED, 



5B,04,A0,13,ED,53,04,A0,CD,F0,BB,FE 

,00,28, 05,21, 06,A0,CB,D6,2A,02,A0,E 

D,5B,04,A0,13,ED,53,04,A0,CD,F0,BB, 

FE,00,28,05,21,06,A0,CB,CE,2A,02,A0 

,ED,5B,O4,A0,13,CD,F0,BB,FE,O0,26,O 

5,21,06, A0,CB,C6,3A,06:IEHiiii»iii 

it« 

20180 DATA AO,CD,EO,A1,3E,00, 32,06, 

A0,2A,02,A0,23,22, 02, A0.21, 90,01, ED 

,5B,02,A0,A7,ED,52,7C,FE,00,C2,3F,A 

2,7D,FE,00,C2,3F,A2,0E,70,3E,00,CD, 

EO, Al, OD, 79, FE, 00, 20, F5, 3E, OA, CD, EO 

.Al, 2A, 00, AO.OE, 07,23,00, 79, FE, 00,2 

0,F9,22,00,A0,22,04,A0:BEH»»iiiii 

m 

20190 DATA 3A,07,A0,3D,32.07,A0,FE, 

00,C2,OC,A2,3E,OA.CD,EO,A1,3E,1B,CD 

,E0,A1,3E,40,CD,E0,A1,FD,E1,DD,E1,E 

1,D1,C1,F1,C9,3E,CD,32,5A,BB,3E,2B, 

32, 5B, BB, 3E, BD, 32.5C, B8, 3E, C9, 32, 5D 

,BB,C9,3E,CF,32,5A,BB,3E,FA,32,5B,B 

B,3E,93,32,5C,BB,3E,CF:RFJ|iiniiiii 

m 

20200 DATA 32,5D,BB,C9,3E,1B,CD,E0, 

A1,3E,40,CD,E0,A1,C9,3E,1B,CD,E0,A1 

,3E,7B,CD,E0,A1,3E,01,CD,E0,A1,C9,3 

E,1B,CD,E0,A1,3E,78,CD,E0,A1,3E,00, 

CD,E0,A1,C9,DD,6E,00,7D,FE,00,20,0B 

,3E,1B,CD,E0,A1,3E,50,CD,E0,A1,C9,3 

E,lB,CD,E0,Al,3E,4D,CD:REMiiinil<l 

m 

20210 DATA E0,A1,C9,DD,6E,00,7D,FE, 

0O,20,06,3E,12,CD,EO,Al,C9,3E,0F,CD 

,E0,A1,C9,DD,6E,00,7D,FE,00,20,0B,3 

E,1B,CD,E0,A1,3E,4B,CD,E0,A1,C9,3E, 

1B,CD,E0,A1,3E,47,CD,E0,A1,C9,DD,6E 

,00,7D,FE,00,20,OB,3E,1B,CD,EO,A1,3 

E,46,CD,E0,Ai,C9,3E,iB:REHiiliillll 

m 

20220 DATA CD,E0,A1,3E,45,CD,E0,A1, 

C9,DD,6E,00,7D,FE,00,20,10,3E,1B,CD 

,E0,A1,3E,57,CD,E0,A1,3E,30,CD,E0,A 

1,C9,3E,1B,CD,E0,A1,3E,57,CD,E0,A1, 

3E,31,CD,E0,A1,CB,DD,6E,00,7D,FE,00 

,2O,OB,3E,18,CD,E0,Al,3E,35,CD,E0,A 

l,C9,3E,lB.CD,E0,Al,3E:BEHlllllliii 

m 

20230 DATA 34, CD, EO, Al, C9, 00, 00, 00, 

00,00,00,00,00,00,00,00,00,00,00,00 

,00,00,00,00,00,00,00,00,00,00,00,0 

0,00,00,00,00,00,00,00,00,00,00,00: 

REMlIIltllll 
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Henri BELHAIRE 



Le programme Fleurs est un jeu de réflexion dans lequel l'ordinateur affiche 4 rangées 

contenant chacune une certaine quantité de fleurs. Il s'agit de cueillir à tour de rôle (vous 

jouez contre la machine) un nombre variable de fleurs dans une même rangée. Le gagnant est 

celui qui cueillera la ou les dernières fleurs . Il y a quatre niveaux de difficulté, le niveau 1 est 

le plus facile alors que le niveau 4 vous donnera du fil à retordre. 

Avant de tancer le premier listing, il faut tout d'abord démarrer par RUN «FLEURA» (2nd listing). Ce dernier va créer 
un fichier FLEUR 1 DIN. Le jeu se lance grâce à RUN «FLEUR». 




FLEUR.BAS 



10 'JEU DE FLEURS >U 

20 'PBOGBAKME -FLEUR.BAS-- >LB 
30 'BELHAIRE Henri — Février 1986 >LC 

«0 'créer le profane FLEURI. BIN a ;LD 

vec 

S0 Me prograne FLEURA. BAS avant d >LE 



60 'lancer ce prograue. .. >LF 

1000 'PRESENTATION DU JEU >ID 

1010 MODE 0:B0RDER 0: INK 0,13il« 1 >DQ 
.0;1KK 2,3: [NK 3,6: INK 4,9: INK S, 12 
:IKK 6.15: INK 7, 16: INK B,2:INK 9,24 
:INK 10,22:PAPER 0:CLS 
1020 PLOT 10, 10, 1 >GD 

1030 DBAUB 620,0:DRAVR 0,380:DRAHR >IV 
-620,0:DRAUR 0,-380 

1040 L0CATE 4,2:PEN 2:PRINT "BELHA1 >CP 
RE Henri" :L0CATE 7, 4 : PB I NT "PRESENT 
E": 

1050 F0B i=0 T0 360 STEP 4 >RE 

1060 LET c-40«SIN (<):LET 8=40 >C0S >IL 
(DlLET b=70 <SIN (il 
1070 PLOT 320,140:DRAVR a,b,2 >II2 

1080 PLOT 320,260:DBAUB a,b, 10 >ÎD 

1090 PLOT 26O,2O0:DRAUR b,a,3 >UC 

1100 PLOT 380,200:D8AHB b,a,6 >VC 

1110 PLOT 370,250:DRAUfi c,a,5 >UF 

1120 PLOT 2/0,250:DBAUfi c,a,6 >WG 

1130 PLOT 370,150:DRAIiR c,a,7 >UJ 

1140 PLOT 270,150:DBAUR c,a,4 >WF 

1150 NEIT l >UH 

1160 FOI i=0 TO 360 STEP 2 >SE 

1170 LET a=70 iCOSdhLET b=S0 >SIN >EV 
(il 




1180 PLOT 320, 200:DRAUB a.b.l >UI 

1190 NEIT i >IB 

1200 F0B 1=0 T0 360 STEP 2 >BZ 

1210 LET a=40 »C0S(il:LET b=40 «SIN >EK 
(l) 

1220 PLOT 320,200:DBAUB a,b,9 >UA 

1230 NEIT l >UG 

1240 LOCATE 5,23:PBIMT "JEU DE FLEU >GK 
8S" 

2000 'INITIALISATION >IE 

2010 HFJOB? 46FFF:L0AD •iFLEUBl.BIN >CC 
":F0fi N=l TO 3000:NEIT 



2020 SYMBOL 242,499, 45A,43C,4FF,4FF >UH 

,43C,45A,499:LET «»=CHB*(242I»CH«»( 

32) 

2030 SÏHBOL 243,418,418,418,416,418 >UF 

,418,45A,45A:LET B»=CHR»(243)*CHR»l 

32) 

2040 SÏHBOL 244,45A,47E,43C,4BD,4FF >UF 

,4FF,47E,43C:LET C»=CHB»(244)+CHB«( 

32) 

2050 HODE 1 : LOCATE 9,2:PEN 2.-PBINT >EH 

"•»«« JEU DE FLEUBS ««••" 

2060 LOCATE 4,4:PEN l:PRlNT"Le JEU >YU 

DE FLEUBS est une variante du" 

2070 LOCATE 2,5:PBINT"jeu de HARIEN >VU 

BAD, l'ordinateur choisit" 

2080 LOCATE 2,6:PRlNT"au hasard 4 r' >BI 

angees d'une certaine " 

2090 LOCATE 2,7:PBINT"quantite de f >UÏ 

leurs." 

2100 LOCATE 4,8:PBINT"A tour de roi >VN 

e, 11 s'agira de cueillir" 

2110 LOCATE 2,9:PRlNT"des fleurs, la >ZT 

is attention dans la ieie" 

2120 LOCATE 2,10:PBINT"rangee." >CC 

2130 LOCATE 4,ll:PBINT"Le gagnant e >TA 

st celui qui cueillera 11 

2140 LOCATE 2,12:PBINT"la ou les de >GP 

rmeres fleurs." 

2150 LOCATE 4, 13:PB1NT"L' ordinateur >U0 

vous laisse le chou de" 
2160 LOCATE 2,14:P(INT"auuen«r ou >JB 

non la partie..." 
2170 LOCATE 4,15:P8INT"Vous pourrez >BY 

choisir le niveau de" 
2180 LOCATE 2,l6:PRINT'dlff iculte e >DQ 
ntre 1 et 4 ...." 
2190 LOCATE 4,19:PBINT"B0NNE CHANCE >KJ 

CAR L'OBDINATEUB N'EST ■ 
2200 LOCATE 6,20:PBINT" PAS UN ADVE >ÏU 





RSAIBE FACILE." 

2210 LOCATE 9,22:PEN 2:PRINT"APPUVE >ZI 

Z SUR UNE TOUCHE" :LET Q»=INKEY»:IF 

Q»=" THEN GOTO 2210 

2220 ENV 1,1, 9,1, 2,-1, 2,7,-1, B >VN 

2230 ENV 2,3,2,1,1,1,1,1,0,8,5,-1,4 >FJ 

■2,1,20 

2240 ENV 3,1,7,4,7,-1,20 >QQ 

2250 ENT 6,1,0,14,1,1,7,2,-1,7,1,1, >AA 

7 

2260 HODE 1:IHK 0,10: INK 1,6: INK 2 >JY 

,9: INK 3,0 

2270 HINDOU 11,2,39,21,24 

2280 HINDOU 12,3,38,4.8 

2290 HINDOU 13,3,36,8,12 

2300 HINDOU 14,3.36,12,16 

2310 HINDOU 15,3,38,16,19 

2320 'AFFICHAGE DU JEU 

2330 PLOT 10,10:DBAH 10,390:DRAH 63 >EÏ 

0,3B0:DRAH 630,10:DRAH 10,10:PLOT 1 

0,85:DRAH 63O,85:PL0T 10,360:DRAH 6 

30,360: 

2340 PEN 1:L0CATE 9,2:PBINT ■<••• J >IQ 

EU DE FLEURS mi" 

2350 PEN 3.-L0CATE 2,6:PRINT "A":LOC >GH 

ATE 2,10:PRINT "B":L0CATE 2,14:PRIN 

T "CVLOCATE 2,18:PRINT "D" 

2360 LOCATE 39,6:PRINT "N" 

2370 LOCATE 39,6:PRINT "I" 

2360 LOCATE 39,10,-PRINT "V" 

2390 LOCATE 39,12:PRINT "E" 

2400 LOCATE 39,14:PRINT "A" 

2410 LOCATE 39,16:PRINT "U" 

2420 CLSil.-LOCATEtl, 1.2: INFUT 11,'C >IG 

hoisissez votre niveau 1,2,3 ou 4 " 

;n:IF n<l OR n>4 THEN GOTO 2420 

2430 LOCATE 38, 19: PB I NT N >UB 

2440 PLOT 10,10:DRAH 10,390:DBAH 63 >EA 

0,390:DRAH 630,10:DBAH 10,10:PL0T 1 

0,85:DRAU 630,65:PL0T 10,360:DRAH 6 

30,360: 

2450 RANDOMIZE TIHE >PM 

2460 LET A=INT(N«4lRND)+i:P0KE 46F0 >FL 

0,A 

2470 LET B=INT(N«4iRM»*l:P0KE 46F0 >FQ 

1,B 

2480 LET C=INT(NH»RND)U:P0KE 46F0 >FV 

2,C 

2490 LFJ D=INT(Ni4>BkD)»l:P0KE 46F0 >FZ 

3.D 

2500 GOSUB 2570:G0SUB 2580: GOSUB 25 >SZ 

90.-G0SUB 2600 



>UB 
>UP 
>VU 
>VD 
>VT 
>VT 



2510 PAPEB I1,2:CLSI1:L0CATE 11,10, >U 
2: PEN tl,3:PRINT 11, "VOULEZ VOUS C 
OHHENCE! ?...":LOCATE ll,14,3:PRINT 
ll,'( Oui ou Non )" 

2520 Q»=INKEYI:IF DM" THEN GOTO 2 >DC 
520 

2530 IF Q»="0" OR Q«="o" THEN GOTO >DD 
2610 

2540 IF Q»="N" OR Q»="n" THEN GOTO >DC 
2700 

2550 GOTO 2520 >HJ 

2560 'AFFICHAGE DES FLEURS >VF 
2570 PAPER I2,0:CLS I2:L0CATE 12,2, >IL 
2.-F0R N=l TO A:PEN I2,1:PRINT 12, A» 
;:NFJT .-LOCATE I2,2,3:F0R N=l TO A:P 
EN I2,2:PRINT 12, B»;: NEIT: LOCATE 12 
,2,4:F0R N=l TO A:PEN I2,2:PRINT 12 
,C»;:NEIT:RETURN 

2580 PAPER I3,0:CLS t3:L0CATE 13,2, >IC 
2:F0B N=l TO B:PEN I3,1:PBINT 13, As 
;:NEIT:LOCATE I3,2,3:F0R N=l TO B:P 
EN I3,2:PRINT l3,Bt;:NEIT:L0CATE 13 
,2,4:F0R N=l TO B:PEN I3,2:PRINT 13 
,C»i;NEIT:fiETUBN 

2590 PAPER- 14, O.-CLS I4:L0CATE 14,2, >IU 
2:F0B N=l TO C:PEN I4,1:PBINT 14, Al 
;: NEIT: LOCATE I4,2,3:F0B N=l TO C:P 
EN I4,2:PRINT I4,B»;:NEIT:L0CATE 14 
,2,4:F0fi N=l TO C:PEN I4,2:PRINT 14 
,C»;:NEIT:RETURN 

2600 PAPER I5,0:CLS I5:L0CATE 15,2, >IA 
2:F0R N=l TO D:PEN I5,1:PBINT 15, U 
;: NEIT: LOCATE I5,2,3:F0R N=l TO D:P 
EN i5,2:PBINT I5,B«;:NEIT:L0CATE 15 
,2,4:F0R N=l TO D:PEN I5,2:PBINT 15 
,C»!:NEIT:RETURN 

2610 'VOTRE JEU >ÏB 

2620 FOR n=l TO 1000:NEIT >TP 
2630 CLSI1: LOCATE ll,2,2:PEN ll,3:P >DB 
BINT 11, "DANS QUELLE RANGEE PRENEZ 
VOUS DES":LOCATE I1,5,3:PRINTI1,"FL 
EURS ? (A ou B ou C ou D)' 
2640 Q»=INKEVI:IF Q*="" THEN GOTO 2 >EA 
640 

2650 IF Q»="A" OR 0*="a" GOTO 2670 >ÏL 
2660 IF Q*="B" OR 0«="b" GOTO 2680 >Ï0 
2670 IF Q«="C" OR 0»="o" GOTO 2690 >ÏV 
2680 IF Q«="D" OR 0*="d" GOTO 2900 >TP 
2690 GOTO 2640 >NG 

2700 'JEU DE L'ORDINATEUR >YB 
2710 IF AOO THEN LET AA=INT (5>RN >NC 
Dm ELSE AA=0 



2720 IF (AOO AND AA>A) THEN GOTO 2 >CH 

710 

2730 IF BOO THEN LET BB=INT 15»RN >PB 

D)*l ELSE BB=0 

2740 IF (BOO AND BB)1) THEN GOTO 2 >CH 

730 

2750 IF COO THEN LET CC=INT (5»BN >PJ 

D)tl ELSE CC=0 

2760 IF (COO AND COO THEN GOTO 2 >CE 

750 

2770 IF DOO THEN LET DD=INT (5»BN >PR 

D)»i ELSE DD=0 

2780 IF (DOO AND DD>D) THEN GOTO 2 >CN 

770 

2790 POKE 46F04,AA:P0KE 46F05,BB:P0 >EP 

KE 46F06,CC:P0KE 46F07.DD 

2800 CALL 47000 >PJ 

2810 LET U=PEEK (46F00):LET I=PFJX >EK 

(46F01):LET Y=PEEK (46F02):L£T Z=PE 

EK (46F03) 

2820 IF HOA THEN GOTO 2920 >UH 

2830 IF IOB THEN GOTO 2930 Mil 

2840 IF YOC THEN GOTO 2940 >WI 

2850 IF ZOD THEN GOTO 2950 >UA 

2860 'ENLEVEMENT DE VOS FLEURS >YJ 

2870 IF A=0 THEN GOTO 2630 ELSE CLS >IA 

I1:L0CATE ll,2,2:PEN ll,3:INPUT 11, 

'COMBIEN EN PRENEZ VOUS HEOTEBl'jF 

:1F (F<=0 OR F>AI THEN GOTO 2870 R 

SE LET A=A-F:PRINT CHR»(7);:P0KE 46 

F00,A:G0SUB 2570:G0T0 2970 

2860 IF B=0 THEN GOTO 2630 ELSE CLS >XK 

I1:L0CATE ll,2,2:PEN ll,3:INPUT 11, 

'COMBIEN EN PRENEZ VOUS l*ENTER)";F 

:1F (F<=0 OR F>B) THEN GOTO 2880 EL 

SE LET B=B-F:PRINT CHR»(7);:P0KE 46 

F01,B:G0SUB 25BO:GOT0 2970 

2890 IF C=0 THEN GOTO 2630 ELSE CLS >IV 

I1:L0CATE ll,2,2:PEN ll,3:INPUT 11, 

"COMBIEN EN PRENEZ VOUS «ENTERI";F 

:1F (F<=0 OB F>C) THEN GOTO 2890 EL 

SE LET C=C-F:PIINT CHB*(7);:P0KE 46 

F02,C:G0SUB 2590:G0T0 2970 

2900 IF D=0 THEN GOTO 2630 ELSE CLS >IA 

IliLOCATE ll,2,2:PEN ll,3:INPUT 11, 

"COMBIEN EN PRENEZ VOUS HENTEBl'iF 

:1F (F<=0 OB F>Dl THEN GOTO 2900 B. 

SE LET D=D-F:PB1NT CHR»(7);:P0KE 46 

F03,D:G0SUB 260O.-G0T0 2970 

2910 'ENLEVEMENT DES FLEURS DE L'OI >YE 

DINATEUI 

2920 PAPES I1,2:CLSI1:L0CATE 11,10, >LQ 



2: PEN ll,3:PBINT 11, 'J'EN PRENDS ' 
;A-W:LOCATE il, 14,3:PH1NÎ 11, "DAMS 

LA RANGEE ,.A..":GOSUB 3050:LET A-V 

:PQKE 46F00,A:G0SUB 2570:G0T0 2980 

2930 PAPEB I 1, 2 :CLSI1: LOCATE 11,10, >LA 

2: PEU ll,3:PBIHT 11, 'J'EN PRENDS " 

;B-2:LQCATE tl, U,3:P8INT 11, 'DANS 

LA RANGEE ..B..':G0SUB 305Û:LET B=X 

:P0KE 46F01,B:G0SuB 25BO:G0T0 2980 

2940 PAPER tl,2:CLSIl:L0CATE 11,10, >LK 

2: PEN I1,3:PI1NT 11, 'J'EN PRENDS " 

;C-ï:L0CATE I1,14.3:PR1NT 11, 'DANS 

LA RANGEE ..C..':G0SDB 3050:LET C=ï 

:P0KE 46FÛ2,C:G0SUB 259Û:G0TQ 2980 

2950 PAPER I1,2:CLSI1:L0CATE 11,10, >LK 

2: PEN ll,3:PRINT 11, 'J'EN PRENDS * 

;D-Z:L0CATE H,14,3:P8INT 11, 'DANS 

LA RANGEE ,.D..':G0SUB 30S0:LET 6=2 

:P0KE l<6F03,D:G0SUB 2600:GOTO 2980 

2960 ' >ÏK 

2970 IF (A=0 AND 8=0 AND C=0 AND 0= >GK 

0) THEN GOTO 2990 ELSE GOTO 2700 

2980 IF (A=0 AND B=0 AND C=0 AND D=. >GV 

0) THEN GOTO 3020 ELSE GOTO 2610 

2990 'VOUS AVEZ GAGNE >ZC 

3000 FDR N=l TO 1000:NEXT:FÛR N=5 T >ZZ 

1 STEP -1:CLS IN:LOCATE IN,8,2:PE 

NIN.liPRINTtN. "BRAVO VOUS AVEZ GAGN 

E':SOUND l,NtlO0,100,5:NEXT 

3010 GOTO 3060 )HA 

3020 'L'ORDINATEUR A GAGNE )IH 

3030 FOR N=i TO 1000:NEIT:F0R N=l T >0J 

5 :CLS IN:L0CATE IN, ï,2:PENIH,i:P 

RINTIN.'DOHHAGE VOUS AVEZ PERDUVSO 

UNO 1,N>100,100,5:NEIT 

3040 GDTO 3060 >HD 

30S0 N=40:S0UHD 1,N< 10, 40, 7, 1,6:S0U >QU 

ND 2,Ni20,80,7,2,6:S0UND 3,N>S,20,7 

,3,6:F0R N= 1 TO 1000:NEIT:RETURN 

3060 FOR N'1 TO 5000:NEIT:PAPER 11, >GQ 

1:CLSI1:L0CATE tl,4,3:PENti,3:PRINT 

11, 'UNE AUTRE PARTIE (Oui ou Non).. 

t ? 

3070 Q»=INKET»:IF 0»=" THEN GOTO 3 >DE 

070 

3060 IF 0»="0" OR Q>"o" THEN GOTO >DC 

2320 

3090 IF 8I="N" OR Ql="n" THEN GOTO >DÏ 

3100 

3100 HODE 0:INK 1,2,3:F0R N=l TO 10 >DR 

000:LOCATE 5,10:PRINT "AU REV01R":N 

EXT:END 





FLEURA 

10 A=47000:F=470D9:L=100:WHILE A<=F 
:FOR A=A TO AU5:READ C»:K=VAL<»4'* 
C«):S=S»K*65536xlS*K>32?67):IF Ai=F 
THEN POKE A,K 

20 NEIT:REAO D»:T=VAL("4'»D»):IF T< 
>S THEN PRIHT CHM(7);'Erreur ligne 
°;L;END ELSE L=L*5:¥ENB 
100 DATA 21, 00,6F, 46,21, 01, 6F, 4E.21 
,02,6F,56,21,03,6F,SE,038E 
105 DATA 00,3E,00,A8,A9,AA,AB,00,FE 
,00,00,CA,22,70,C4,64,09F4 
110 DATA 70,C9,3E,00,BB,CA,34,70,78 
,21,04,6F,96,21,00,6F,0FC3 
115 DATA 77, C3, 21,70,69, CA, 44,70, 79 
,21,05,6F,96,21,01,6F,15FA 
120 DATA 77,C3,21,70,BA,CA,54,70,7A 
,21,06,6F,96,21,02,6F,1C45 
125 DATA 77,C3,21,70,BB,CA,61,70,7B 
,21,07,6F,96,21,03,6F,22A1 
130 DATA 77,C3,21,70,3E,00,A8,A9,AA 
,AB,FE,00,C2,74,70,78,2A6C 
135 DATA 32,00,6F, C9,3E,00,B8,CA,7E 
,70,05,C3,64,70,3E.00,305E 
140 DATA 21,00,6F,46,A8,A9,AA,AB,FE 
,00,C2,92, 70, 79,32,01,3748 
145 DATA 6F,C9,3E,00,B9,CA,9C,70,0D 
,C3, 7E./0.3E, 00, 21,01, 3D6B 
150 DATA 6F,4E.A8,A9,AA,AB,FE,00,C2 
,B0,70,7A.32,02,6F,C9,4594 
155 DATA 3E,00,BA,CA,BA,70,15,C3,9C 
,70,3E, 00,21, 02.6F.56.4B8A 
160 DATA A8,A9,AA,AB,FE,00,C2,CE,70_ 
, 7B, 32, 03, 6F.C9, 3E, 00, 5354 
165 DATA BB,CA,D8,70,1D,C3,BA,707CF 
, 00,00,00,00,00,00, 00.58F4 
170 SAVE "FLEURI. B1N". 8,47000,409* 




mm 




Ce très petit jeu convient tout à 

fait à déjeunes enfants qui ne 

sont pas habitués à l'ordinateur. 

Pour obtenir un bon score, il 

faut un minimum de stratégie. 

Les enfants s'y laissent prendre 

facilement. De plus, le record 

est enregistré sur la disquette ce 

qui augmente la motivation. 




10 ' >u 

20 GOSUB 610: 'présentation >JA 

30 ' >LC 

40 GOSUB 830: 'Initialisations >JG 

50 ' >LE 

60 GOSUB 140:'prograiie principal >JC 

70 ' >LG 

80 GOSUB 360:'fin de partie >JJ 

90 ' >U 

100 RENxxxxxxxxxxxxxxxxxxxttixxxxx >IG 

110 REHi" prograue principal •» ,'CL 



120 BEHxxxxxixxxixxxxxmxxxxxixx* >YA 

130 ' >IE 

140 EVERT 20 GOSUB 950 >PZ 

150 tl=0:flag=l:sc=0:ti=0:ty=0 >AN 

160 i=RNDx500*S0:y=RNDx300t50 >IU 

170 PLOT >,y,2,l >LC 

180 CLEAR INPUT >LV 

190 aMINKET* >PD 

200 IF al=CKR»(2S3> 01 J0T(0)=8 THE >GQ 

N t!=tity=0:Mag=0:60T0 240 

210 IF al=CHR»(242) 01 J0Ï(0I=4 THE >HU 

N ti=-4:ty=0:flag=0:G0T0 240 

220 IF al=CHRS(240) OR J0ï(O)=l THE >GE 

N ty=2:ti=0:i!la(!=0:G0T0 240 

230 IF E*=CK8«(241> OR J0Ï(0)=2 THE >X2 

N ty=-2:ti=0:flag=0 

240 i=x+ti:y=y*ty >NV 

250 IF TEST(l,yK>0 AND tlag=0 THEN >FC 

360 

260 IF tl<>0 THEN FOR at=l TO 10:NE >FJ 
n at 

270 SOUND 1,400,5,10,, ,10 >8U 
280 PLOT i,y,2 >VA 

290 GOTO 190 >ZH 

300 RETURN >ÏJ 

310 ' >RE 

320 REHxxxasxKxxixxinxmxx >TR 
330 REHMi fin de partie ••' >UF 
340 REN«»«*e*x»hx«xxix»*xx« >TU 
350 ' >RJ 

360 f l-REHAIN(O) >LU 

370 ENT 1,100,2,2:SOUND 1,284,200,1 >TJ 
5,,1:SQUND 1,238 

380 FOR it=l TO 2000:NEIT at >VÏ 
390 IF scaOïsc THEN isc=scaf >VP 
400 NOOE 1:PEN l:PRINT'ton score po >HH 
ur cette partie :';:PEN 3:PRINT sca 
i 

410 PEN l:PRlNT:PRINT"ton record d' >DF 
aujourd'hui :';:PEN 3:PRINT isc 
420 PEN 1 : PB I NT : PB 1 NT'EECORD ABSOLU >FZ 

: ';:PEN 3:PRINT n»;:PEN 1:PRINT' 
avec';:PEN 3:PB1NT rec 
430 INK 2,20,1:PEN 2:L0CATE 10,25:P >EE 
RINT'appule sur une touche":CLEAR I 
NPUT.-CALL tBB06:CLS:lNK 2,20:PEN 1 

440 IF isc>rec THEN 450 ELSE 500 >TL 
450 rec=isc:IF n»<>" THEN PEN 2: L >VF 
OCATE 18,1:PRINT'BRAV0 !':PEN 1:PRI 
NT:PRlNT'Tu as battu le record de ' 
in*;*." 



460 CLEAR INPUT ,-LOCATE 1,6: ÏMPUT'Qu >EP 
el est ton noa ? ',n»:IF n»=" THEN 

460 
470 IF LEN(n«»16 THEN n$=HIM(n*,l >HG 
,15)«".' 

480 OPENOUT "recdang":IIRITEIB,n»,re >VI 
c:CLOSEOUT 

490 CLSiGOTO 520 >LB 

500 «ODE 1:PEN 1 >BD 

510 IF scaf=rec THEN PEN liLOCATE 1 >BH 
8,1:PBINT'BRAV0 !':P£N 1:PRINT:PIIN 
T'Tu as égale le record de ";n$;"." 
:FOR at-1 TO 2000:NFJT at 
520 LOCATE l,10:PBINT"0n recouence >NQ 

(0/N) ? "jiPEN 2:PRINT"_" 
530 k»=UPPER»<INKEV»>:IF k»=" THEN >FQ 

530 
540 IF k»="0' THEN LOCATE 23,10:PBI >TD 
NT"OUI":FOR at=l TO 1000:NEXT at:GO 
TO 40 

550 IF k»="N" THEN LOCATE 23,10:PBI >HU 
NT'NON':FOR at=l TO 2000:NEIT atlPE 
N 1:CLS:END 

560 ' >TB 

570 REHxxusxxxxxxxxxfXXlxxx >RG 
580 BEN"* présentation »i >WJ 
590 REHxiliitiiiiixliiillll >TA 
600 ' >RG 

610 CALL 4BC02:PAPER 0:PEN l.'BORDEB >LZ 

1:H0DE 
620 ENT -1,60,-1,1, 60,1, 1:S0UND 1,1 >HT 
00,480, 12,, 1 
630 PEN 14:L0CATE 8, 12:PRINT'DANGER >EB 

II 

640 INK 2, 11: INK 3,7 >HV 

650 FOB at=l TO 3000:NEIT at >VZ 

660 HODE 1 >JA 

670 SVHBOL AFTER 64 >NR 

680 SVHBOL 64,48,24,120,12,124,204, >DL 

118 

690 SVHBOL 123,12,24,60,102,126,96, >CZ 

60 

700 SVHBOL 125,48,24,60,102,126,96, >CC 

60 

710 SVHBOL 94,48,24,102,102,102,102 >DV 

,62 

720 PEN li LOCATE 4,2iPRIST"ïii dois >S2 

-te déplacer sur un terrain" :PRINT S 

PACE*(9);"où TOUT est dangereui,':P 

RINT" y coiprls les traces de ton 

passage. ':PEN 2:L0CATE 12,7:PRINT'N 

e touche à rien":LOCATE 15,8:PRINT' 



... et ..." 

730 PRINT'reste en vie le plus long >L« 
teips possible. ":PEN 1: LOCATE 4,12: 
PBINT'Tu te déplaces avec les flèch 
es." 

740 PEN 3:PRIKT:PRINT:PRINT:PR1NT"E >JT 
n haut de l'écran, tu peui voir :': 
PRIHT" - ton record depuis le débu 
t du jeu":PRINT" - ton score actue 
!":PRINT:PRlNT"En bas sont inscrits 

:*:PRINT* - le noa et le score du 

chaipion. " 

750 OPENIN "recdang":INPUTi9,ni,rec >RI 
:CL0SE1N 

760 CLEAR INPUT:UH1LE lNKEV«='":pn= >NF 
pnH:PEN pn HOD 4:L0CATE 6,25:PRIHT 
■xxx appuie sur une touche *»»';:¥£ 
ND 

770 BETUBN >ZK 

780 ' >TF 

790 REHxxxxxxxxxxxxxxxxxxxxxxx >VR 

800 RFJiii Initialisations »• >VD 

B10 RErîxxxxxxxilxxtiixxxxxxxii >VJ 

820 ' >TA 

830 MODE 0: INK 2,20 >HH 

840 RANDOMZE TIME >NB 

850 PLOT 0,20,7:D8AM8 0,358:DRAYR 6 >LG 
39,0:DRAyR 0,-358:D8AUR -639,0 
860 FOR 1=1 TO 200 >LP 

870 PLOT RNDx626*4,RHDx355*22,l >TZ 
880 NEÏT 1 >PE 

890 PEN 6:L0CATE 17,1:PRINT >IV 

900 PEN 12:L0CATE 1,1:PRINT "ton re >TC 
cord:";isc 

910 IF nl<>" THEN rec»=STR»(rec):L >CU 
OCATE li-LEN(n**rect)/2,25:FBINT n» 
;rec$; 

920 RETURN >ZG 

930 ■ >TC 

940 RErlxx«t»iiim«ii»tinimtxiii >AV 
ftl 

950 RENiit relise A jour du score > >CC 
xi 

960 RENxxxxixxiiiiiiiiiKiixiiixxii >AA 
xx 

970 ' >TG 

980 IF flagOO THEN RETURN >VÏ 

990 sc=sc*l >VH 

1000 PEN 6:L0CATE 18,1:PBINT HIDKS >NY 
TR«(scl,2) 

1010 scaf=sc >HD 

1020 RETURN >EGe 



UTILITAIRE 




Horloge 



Frédéric LESPEZ 



Insérez une K7 ou un DISC dans 
le lecteur, tapez le programme et 
exécutez-le. 

Si tout se passe bien, il sauvera un 
fichier binaire (HORLOGE.BIN) dès 
lors réutilisable de la façon suivante : 

MEMORY 88FFF : LOAD "HORLOGE. 
BUT, 89000:CALL 89000 

ATTENTION : Si, toutefois, vous devez 
utiliser, ultérieurement, l'instruction 
SYMBOL AFTER, placez-la AVANT 
le MEMORY, sinon vous aurez droit à 
un facétieux «Memory full». En effet, ces 
deux instructions ne font pas bon ménage. 

Ce programme met à votre disposition 
4 nouvelles instructions Basic : 

I HEURE, HH, MM, SS : Règle et met 
en marche la pendule (HH représente les 
heures, MM les minutes, SS les secon- 
des). A ce moment-là, l'ordinateur affi- 
chera l'heure en haut à gauche de l'écran, 
pendant que vous pourrez mettre au point 
vos programmes Basic. 
SET ALARM, HH, SS : Règle l'alarme 
ALARMON : Met en marche l'alarme 
ALARMOFF : Eteint l'alarme 
SEEALARM : Affiche à côté de l'heure, 
celle où va se déclencher l'alarme et son 
état (un point lumineux : ON, rien : OFF). 

NB : Le programme ne vérifie pas si les 
données que vous entrez sont correctes 
(il ne contrôle que le nombre de para- 
mètres). 




10 'IIHIIHIIIIIHIIIIIIIIIIIHIIIII 

20 '•• LESPEZ FREDERIC PRESENTE » 
30 'lllllilllllllHliiiiiiliilllluii 
40 'il HORLOGE VI. LE 10/08/88 » 

50 'IIIHIIIIIHtlHHIIHIIHIHtHI 

60 KODE 2:KEH0RT UFFF 

70 FOR 149000 TO «177 STEP 8:F0R J=0 

T0 7:8EAD A*U>:S=StVAL(*t"**»U)):KE 
IT:READ A»(8):IF SGN(VALf"&"*A»<a))>=- 
1 THEN CP=2"!S ELSE CP=0 
80 IF SOVALI'J'+AMamCP THEH PRINT" 

ERREUR EN LIGNE No •:(<l-M000>/a>M0 
♦ U0:END 

90 FOR J=0 TO 7:P0IŒ ltJ,ÏALCk'tA«J) 
):NEIT:NEIT 

100 SAVE'HORLOGE.BIN", B,*9000,U77,190 
00:CALL 19000:END 

110 DATA 21,0A,90,01,0E,90,CD,D1,02F8 
120 DATA BC,C9,00,00,00,00,1F,90,052C 
130 DATA C3,44,90,C3,26,91,C3,2C,092C 
140 DATA 91, C3,32,B1,C3,42,91, 48,0021 
1S0 DATA 45,55,52,C5,41,4C,41,52,0FF2 
160 DATA 4D,4F,CE,41,4C,41,52,4D,12C9 
170 DATA 4F,46,C6,53,45,54,41,4C,159D 
180 DATA 41, 52,CD,53,45, 45, 41, 4C, 1867 
190 DATA 41,52,CD,00,FE,03,C0,DD,1C65 
200 DATA 7E,00,32,74,90,DD,7E,02,1F76 
210 DATA 32,73,90,DD,7E,04,32,72,22AE 
220 DATA 90,21,65,90,11,32,00,01,2498 
230 DATA 32,00,C3,EB,BC,00,00,00,2732 
240 DATA 00,00,00,00,00,00,81,78,2828 
250 DATA 90,00,00,00,00,00,00,00, 28BB 



260 DATA 
270 DATA 
280 DATA 
290 DATA 
300 DATA 
310 DATA 
320 DATA 
330 DATA 
340 DATA 
350 DATA 
360 DATA 
370 DATA 
380 DATA 
390 DATA 
400 DATA 
410 DATA 
420 DATA 
430 DATA 
440 DATA 
450 DATA 
460 DATA 
470 DATA 
480 DATA 
490 DATA 
500 DATA 
510 DATA 
520 DATA 
530 DATA 
540 DATA 
550 DATA 
560 DATA 
570 DATA 



F3,F5,E5,C5, 
F5.3A, 74,90, 
3C,32,74,90, 
74,B0,3A,73, 
06,3C,32,73, 
32,73,90,3*, 
28, 06.X, 32, 
AF.32, 72,90, 
75,BB,3A,72, 
3E,3A,CD,5A, 
CD,00,9Î,3E 
3A,74,90,CD, 
CD,75,BB,3A, 
28, 19, 3A, 76, 
90,88,20,0F, 
3A,72,90,B8, 
CD,5A,BB,C1, 
4F,CS,OE,00, 
05,90,OC,C3, 
C6,30,CD,5A, 
B1,10,FD,C1, 
C6,30,CD,5A, 
32,77,90,C9, 
B0,C9,FE,02, 
32,76,B0,DD, 
90, C9, CD, 78, 
0C,CD,7S,BB, 
00,91, 3E.3A, 
76,90,CD,00, 
5A,BB,3A,77, 
04,3E,E7,18, 
5A,BB,E1,CD, 



CD,78,B1, 
FE, 38,28, 
18,26,AF, 
B0,FE,3B, 
90,18,15, 
72,90,FE, 
72,90,18, 
21,01,01, 
90, CD, 00, 
BB,3A,73, 
3A,CD,5A, 
00,91, FI, 
77.90.FE, 
90,47,3A, 
3A,7S,90, 
20,05,3E, 
E1,F1,FB, 
06,0A,B8, 
06,91,79, 
BB,F1,06, 
47,79,48, 
BB,CB,3E, 
3E,00,32, 
C0,DD,7E, 
7E,02,32, 
BB,E5,21, 
3A,75,90, 
CD,5A,BB, 
91,3E,20, 
90,FE,00, 
02,3E,20, 
75,BB,C9 



E5.2F32 
06,32a 
32,3550 
28.3BFF 
AF.3B52 
17,3ED8 
04,4092 
CD.4365 
91, 472F 
90.4AC6 
BB.4E7E 
E1.52EC 
00,5728 
73,5990 
47.5C9A 
07.5EF8 
C9.6531 
38,6753 
F5.6ABC 
09.6EB4 
91.727C 
FF,775A 
77.7A43 
00.7EB7 
75,81F3 
01,8653 
CD, 8*68 
3A.8D8D 
CD.911C 
28,9498 
CD.9706 
00,9BC2« 




|aby 



Sébastien BIGEARD 



mjrisonnier d'un labyrinthe, 
vous devez vous échapper 
en ri oubliant pas les trésors qui 
vous enrichissent, les potions qui 
vous donnent de l'énergie et la 
clef qui ouvre la sortie. Mais 
attention, car un petit monstre 
vous poursuit et il est bien 
décidé à vous détruire. 



10 REH labyrinthe >«. 

20 STHBOL 255,224,224 >PH 

30 IIODE 1:TAG:INK 1,0:1NK 2,0:INK >CP 

,0:B0RDER 0:PAPER 0:CLS 

40 c=l:tt»="LABYRINTHE" >TR 

50 long=LEN<tlt>:longp=long«8 >AA 

60 h=(639-longi48)/2 >NN 

70 H0VE 1,399: GRAPHICS PEN 1:PR1NT >NP 

tl«;:PEH 2 

80 rh=h:hc=l:v=216:vc=398 >VQ 

90 FOR 1=1 TO 8:F0fi 11=1 T0 longp >Zfi 

100 c=c*l:IF c>2 THEN c=l >B8 

110 IF TESr(hc,vcl=l THEN H0VE h,v: >NL 

GRAPHICS PEN c:PR1NT CHR4I255); 

120 h=h+6:hc=hc*2 >LU 

130 NEIT:v=v-6:vc=vc-2:hc=l:h=rh:NE >JF 

IT 

140 tagoff m 

150 L0CATE 1,1:PRINT" ■ >m 

160 L0CATE 12,2:PEN 1:PRINT*SEBASTI )t! 

EN BIGEARO' 

170 PEN 3:PRINT:PRINT:PRINT:PRINT:P >HG 

RINT TABI17I "PRESENTE" 

180 INK 1,24: INK 2,1S:1NK 3,2 ;ÏU 

190 P»="PRESSEZ UNE TOUCHE" >IN 

200 PP=2 >TK 

210 FOR 1=1 TO 18 >CD 

220 pp=pp*l:lF pp>3 THEN pp=l >IT 

230 L0CATE 1UI,25:PEN pp:PRINT HID >UI 

»(p»,i,l):NFJT 

240 CLEAR INPUT >LI 

250 IF INKET>=" THEN 250 >RD 

260 SYBBGL 240,153,102,90,165,165,9 >KY 

0, 102, 153 

2/0 STHBOL 241, 0,28,62,65,12/, 127,1 >CF 



Une astuce : le monstre ne peut 
aller en diagonale : il se déplace 
d'abord horizontalement et 
lorsqu'il est en face de vous, il se 
déplace verticalement. Ainsi, 
vous pouvez passer très près de 
lui mais il faut le faire 
rapidement. 



N.B. : Pour utiliser le listing sur 
un 464, il faut supprimer ou rem- 
placer les instructions CLEAR 
INPUT et GRAPHICS PEN. 




** 



27 

2B0 SYHB0L 242,0,8,8,28,62,62,28 >ÏJ 

290 SÏHBOL 243,0,0,224, 1B1, 229 >XJ 

300 SYMBOL 244,0,16,124,16,16,16,16 >CE 

,0 

310 SYMBOL 245,60,126,90,60,102,90, >Cl 

66 

320 N0DE 2:B0RDER 11 INK 0,10: INK 1, >ÏB 

0:PAPEB 0:PEN 0:CLS 

330 PAPER 1:L0CATE 36,2:PRINT"LABYB )B8 

INTHEVPAPER 0:PEN 1 

335 PRINT:PRINT )IU 

340 PRINT"Vous devez rausser le ■ >GD 

aiiim de trtsors travers un la 

byrinthe coaposl dequatre tableaui 

qui se rlpitent au fur et 6 assure 

de votre progression." 
345 PB1NT >PE 

350 PRINT'Cenendant le teips est >TP 
prlcieui, car votre (nergie s'ipui 
se rapidement. Pouraugienter celle 
-cl, 11 vous suffit de boire les 

potions. En plus, pour soriird'un 
tableau, vous devrez prendre la cli 

qui vous ouvrira la porte." 
355 PBIKT >PF 

360 PRINT"Bien sur, vous ne serez >TL 
pas seul : un petit lonstre essay 
era de vous croquer. Surtout faites 
tris attention fi lui car il passe fi 

travers les aurs." 

365 PRINT >PG 

370 PRINT"* partir de 21 trtsors >TE 



collectls dans un tableau, vous o 

btenez un Bonus. Audipart, vous dl 

sposez de 5 vies et vous pourrez 

en gagner d'autres selon vospoint 

s." 

375 PRINT >PH 

380 PRINT'Dans chaque tableau, vous >RA 

trouverez :":PRINT:PRINT" - 25 Tr 
lsors":PRINT" - 10 Pottons":PRINT" 

- 1 Cil" 
410 L0CATE 20,25:PRINT"««i APPUYEZ >NP 
SUR 'ESPACE' POUR JOUER •»" 
430 IF INKEY(47)=0 THEN 440 ELSE 41 >BE 


440 HODE 1:INK 0,0:CLS:B0R0ER HA 
450 INK 1,2:INK 2,24:PEN 1:L0CATE 1 >HD 
,U:PRINT"Votre chou ■ 
460 CLEAR INPUT >LU 

4/0 PRINT:PRINT:PEN 2.-PRINT" - l = >V8 
> Joystick" 
480 PEINT" - 2 -> Clavier (touches ;ZC 

(l)chtes)" 

490 PEN 1:L0CATE 13,11,-INPUT zz >ZD 
500 IF zzOl AND zz<)2 THEN 490 >IB 
510 CLS >UA 

520 isc=0 ' >GJ 

530 DIB c(40,23) >BH 

540 ENV 1,2,5,10,1,-5,10 >QJ 
550 ENV 2,5,1,15 >ZH 

560 ENT 1,3,-2,10 >DB 

570 ENV 4,5, -2,10:ENV 3,10,1,2 >W 
580 ENV 6,5,1,5 >QK 

590 INK 0,0: INK 1,0: INK 2,0: INK 3,0 >AC 



16 



;• 



600 ï=2:y=2:c=0:sc=0:e=800:pe=20:v= >LU 

5:sv=l:tr=0:ta=0:a(l)=4:b(l>=l:a(2> 

=32:b(2)=23:a<31=40:b<3)=14:al4)=l: 

b(4l=10:a(5)=20:b(5)=23:al6l=36:b(6 

)=l:tat=0 

610 pe=-2:»(l,l)=15:v(l,2)=37:vll,3 >NY 

)=12:v(2,l)=5:v(2,2!=25:vl2,31=16:v 

<3,l)=34:v(3,2)=14:v(3,3l=24:v(4,ll 

=20:ï(4,2)=22:ï(4,3)=13 

620 »<l,l)=2:if(l,2l=15:ii(l,3l=17:ii( >XE 

2,l)=13:w<2,2>=6:w(2,3>=17:w(3,t>=2 

0:w13,2)=12:k(3,3)=7:w<4,1)=17:»14, 

2)=21:nl4,3)=21 

630 bi=3:bi2=16 >BB 

640 FOR i=l TO 10:vs(i)=l:NEXT >Ï2 

650 q=0 >PK 

660 MODE 1 >JA 

670 yiNDOUIl, 1,40,1, 1:UIND0W 1,40,2 >FJ 

,25 

680 INK 1,0: IMK 2,0: INK 3,26: INK 0, >BT 



690 BOBDEB 0:PAPEB O.-PEN 3:PAPEBI1 >AD 

,2:PENI1,3:CLS:CLSI1 

700 tat=tat*l >TH 

710 LOCATE 16 , 12 : PR 1 HT'TABLEAU" ; TAT >EK 



720 PEN 1 


>AC 


730 I2=39:y2=2:ip=x2:yp=y2 


>UZ 


740 F08 j=l TO 23 


>DC 


750 FUS 1=1 TD 40 


>CH 


760 BEAU z 


>HD 


770 c(l,j)=l 


>DC 



7B0 IF cli,jl=l THEN LOCATE i,j:PBI >PU 
NT CHRX240) 

790 NEXT: IF J=U THEN GOSUB 5000 >7.B 

791 NEn >FC 
BOO INK 0,1: INK 1,10: INK 2,0: IKK 3, >C0 
24 

810 »IND0UI2,1,40,25,25:PENI2,3:PAP >BN 

ERI2,2:CLSI2 

820 GOSUB 1150 >PJ 

830 PEN 3 >AG 

640 l=2:y=2:L0CATE l,y:P81NT CHR»I2 >GE 

49) 

650 FOB l»i TO bi >GH 

860 FOB 12=1 TO bl2 >«A 

B70 IF zz=2 THEN GOTO 920 >TE 

880 ik*=BlMU0Y(0),4) )QL 

890 ii=ML<HID»(jk*,l,lH-»AUIIiM< >flN 

Jk«,2,l>> 

900 yy=MLlHID»(jk$,3,l>)-«AL<NID*l >HL 

)k»,4,ll) 

910 GOTO 960 >AB 



920 IF INKEÏI01=0 THEN yy=-l ELSE y >EI 

y=0 

930 IF INKEÏ12)=0 THEN yy=l >VU 

940 IF INKEY(B)=0 THEN «3-1 ELSE « >ED 

1=0 

950 IF INKEÏI1)=0 THEN «1=1 >VT 

960 IF c(»H«,ytyy)>l THEN GOTO 169 >DX 



970 IF c(itii.ytyy)=l OB (xi=0 AND >UC 

yy=OI THEN GOTO 990 

980 LOCATE i,y:PRINT" ":i=xtn:y=y» >QZ 

yy:LOCATE i,v:PBINT CHB»(249) 

990 IF I=X2 AND 1=Y2 THEN 2660 >UH 

1000 NEÏT >KC 

1010 IF l2<i THE» x2=«2*l:G0T0 1060 >BH 

1020 IF «2>« THEN >2=l2-l:G0T0 1060 >BT 

1030 IF y2<y THFJfy2=y2H:G0T0 1060 >BU 

1040 IF y2>y THEN y2=y2-l:G0T0 1060 >BZ 

1050 GOTO 2670 >HJ 

1060 IF clxp.ypIOO THEN GOSUB 2610 >HT 

ELSE LOCATE ip,yp:PBlNT " ■ 
1070 IF x2=l AND y2=y THEN 2670 >IÏ 
1080 PEN 3: LOCATE «2, y2: PEINT CHB«( >GV 
2451 

1090 xp=x2:yp=y2 >HE 

1100 NEH >KD 

1110 e=e-pe: IF e<0 THEN e=0 >I)T 
1120 L0CATEIl,13,l:PBINTH,e >IL 
1130 IF e<=0 THEN 1610 >NÏ 

1140 GOTO 850 >FE 

1150 LOCATE 11, 4,1:PBINTI1, "ENERGIE >HD 

:";e 
1160 LOCATE 11,24, UPRINTIl, "SCORE >HE 
:";sc 

1170 LOCATE 12,17, 1:PR1NTI2, "VIES >GY 
:";v 

1180 RANDOHIZE T!HE:so=lflT(RND«6l*l >GP 
:PEN 3:L0CATE a(soJ,blsol:PRINT CHB 
»(240):culsb>,b(so>)=5 
1190 IF ta=4 THEN ta=0 >PK 

1200 ta=ta*l >CK 

1210 IF bi=7 AND bi2=6 THEN GOTO 12 >CE 
80 

1220 bi2=bi2-l >QA 

1230 IF tat=2 OB tat=3 THEN bl=3 >YK 
1240 IF tat=4 OB tat=5 OB TAT=6 THE >GP 
N bl=4 

1250 IF TAT=7 OB TAT=8 THEN Bl=5 >YA 
1260 IF tat=9 THEN bi=6 >QP 
1270 IF Ut=10 THEN bi=7 >BA 
1280 IF ta=2 THEN GOTO 1320 >UJ 
1290 IF ta=3 THEN GOTO 1330 >UK 
1300 IF ta=4 THEN REST0BE:GOTO 1340 >CK 



1310 PEN 2:L0CATE 11,4:PBINT CHRJ12 >FJ 
41):clll,4)=2:L0CATE 20,12:PRINT CH 
B»l241):c(2Û,12)=2:L0CATE 38,22:PRI 
NT CHR«(241):c(38.22l=2:PEN 3:L0CAT 
E 39,2:PRINT CKR«<242) :c(39.2)=3:GD 
TO 1350 

1320 PEN 2:L0CATE 10,U:PRINT CHR«( >8C 
2411:c(10,U>=2:L0CATE 9,15:PR1NT C 
HB»(2411:cl9,15)=2:L0CATE 38,5:P8IN 
T CHRI(2411:c(39,5)=2:PEN 3:L0CATE 
27,8:PBINT CHH»(242) :u-l27.ûl =3:GQT0 

1350 

1330 PEN 2:L0CATE 5,20:PRINT CHR»I2 /FQ 
41):c(5,20)=2:L0CATE 18,20:PRINT CH 
R»l241):c(18,20l=2;LÛCATE 36,4:PBIN 
T CHB«(241):c(36,4l=2:PEN 3:L0CATE 
U.15:PRINT CHR«(242I :clll,15l=3:G0 
TO 1350 

1340 PEN 2:L0CATE 2,20:PRINT CHBU2 >GU 
41):c(2.20)=2:L0CATE 23.2:PRINT CHR 
»(241):c(23,2J=2:L0CATE 31.17:PBINT 

CHR$(241):c(31,17)=2:PEN 3:L0CATE 
27,20:PRINT CHR»(242):c(27, 201=3 
1350 PEN 2 >FK 

1360 FOR i=l TO 22 >LH 

1370 RANDOHIZE TIME >PH 

1380 i=INT(RNDi38)t2:n=INT(RND«21M >EV 
2 

1390 IF cll.nJOO THEN 1380 >TE 
1400 LOCATE ■,n:PRlNT CHR»(241):c(i >HJ 
,ru=2 

1410 NEÏT >KH 

1420 PEN 3 )FJ 

1430 FOR 1=1 TO 9 >CE 

1440 BANDOHIZE TIHE )PK 

1450 i=INT(BND«38H2:n=INT(BND«21M >ET 
2 

1460 IF cd.nlOO THEN 1450 >TA 
1470 LOCATE •,n:PBINT CHB»(242):cla >HU 
,n)=3 

1480 NEXT ;LE 

1490 i=INT(RNDi38)»2:n=INT(BND«21H >EX 
2 

1500 IF c(i,n)O0 THEN 1490 >TZ 
1510 LOCATE i.iwPBINT CHRS(243):c(i )HQ 
,n)=4 

1520 pe=pe*4:IF pe>30 THEN pe=30:G0 >JZ 
TO 1540 

1530 BETURN >FC 

1540 q=q*l:IF q>3 THEN q=3 >TH 
1550 PEN l:FOfi i=l TO q >QB 

1560 IF c(v(ta,i),u(U,mO0 THEN >KC 
GOTO 1590 



1570 c(v(ta,l),w(ta,l))=l >TC 

1500 LOCATE v(ta,i>,»(ta,i):P8INT C >LD 
HBK240) 

1590 NEXT >LG 

1600 BETURN >FA 

1610 LOCATE i,y:PBINT CHR«(244):F0R >EH 
1=1 TO 25:PENI1,0:L0CATEI1.4,1:PRI 
NTI1, "ENERGIE :":e:F0R j=l TO 200:N 
EXT:PEHIl,3:lACATEIl,4,l:PB[IITIl, a E 
NERGIE :";e:NEXT 

1620 v=y-l: IF v=0 THEN GOTO 2500 >TL 

1630 e=2000HNT(sc/1000) >RB 

1640 LOCATE i,y:PRINT " ■ >UF 

1650 «2=39:y2=2:i=2:y=2 >TF 

1660 LOCATE l,y:PRINT CKR»<249) >ZG 

1670 PENI1,3:L0CATEI1,4,1:PBINTI1," >IB 
ENERGIE :":e:L0CATEI2,17,l:PBINTI2, 
"VIES :";v 

1680 GOTO 850 >GD 

1690 IF c<xtxx,y*yyl=5 THEN 1830 >ZZ 

1700 LOCATE i,y:PBINT" ":x=x+ix:y=y >RZ 
»yy:LOCATE x,y:P8INT CHBK249J 

1710 IF cu,y)=3 THEN 1770 >TM 

1720 IF c<x,yl=4 THEN 1800 >TH 

1730 ctx,y)=0:sc=sc+150 >RV 

1740 tr=tr*l >HC 

1750 SOUND 1,0,25,5,2,0, 10:SOUND 1, >HB 
16,3,10 

1760 GOTO 1870 >NH 

1770 c(«,y)=O:sc=sctlNT(RND»5O)H0: >KH 
e=eMO 

1780 SOUND 1,10,20,5,3 >PT 

1790 GOTO 1870 >PA 

1800 c(i,y)=0:sc=sct35:c=l >«D 

1810 SOUND 1,16, 30,5, 1,1: SOUND 1,14 >LV 
,20,10,0,1 

1620 GOTO 1870 >NE 

1830 IF o=0 THEN GOTO 1100 >TX 




1840 c=O:L0CATE ï,y:P8INT" ":i=xHx >FU 

:y=y»yy:LOCATE i,y:PR!NT CHRI1249): 

SOUND 1,30,60.15,4.0.12 

1850 FOR 1=1 TO 3000:NEXT ;TQ 

1B60 GOTO 2250 )NB 

1B70 L0CATEIl,13,l:PRlNT»l,e:L0CATE >ZH 

ll,31,l:PRINTIl.sc 

1880 IF x=x2 AND y=y2 THEN 2660 ELS >LH 

E GOTO 1100 

1890 REM 1er tableau >PJ 



1900 DATA 1 
,1,1.1,1,1, 
1.1.1,1,1,1 

,0,0,0,0,0,1 
0,0,0,1,0,0 

,0,1,1,1,1, 
1,1,1,0,1,0 

,i,i 

1910 DATA 1 

.0.1,0,1,0, 

0,0,1,0,1,0 

,1,1,1,1,1,1 

0,1,0,1,0,1 

,1,1,0,1,0,1 

1,0,1,0,0,0 

,0,1 

1920 DATA 1 

,0,1,0,0,0,1 

1,0,1,1,1,0 

,1,0,1,1,1,: 

0,0,0,0,0,0 

,0,0,0,1,1,1 

1,0,1,0,1,1 

,1,1 

1930 DATA 1 
,0,1,1,1,0,1 
0,0,1,0,1,0 
,1,0,1,0,1,1 
1,0,1,0,1,0. 

,1,1,1,1,1, 

1,0,1,0,0,0, 

,0,1 

1940 DATA 1 

,0,1,0,1,0,1 

0,1,1,1,1,0 

,1,1,1,0,1,1 

0,1,0,0,1,0 

,0,1,0,1,0,1 

1,0,1,0,1,0 

>M 

1950 DATA 1 

,0,1,0,1,0, 

0,0,1,0,0,0 

,1,1,1,0,1,1 

0,1,0,0,0,0 

,0,0,0,0,0,1 

1,0,1,0,1,0 

,0,1 

1960 DATA 1 

,0,0,0,1,0, 

1,0,1,0,1,0 

,0,0,1,0,1,1 

0,1,0,1,0,1 



1.1.1,1,1,1,1.1,1.1,1,1 >NX 

,1.1,1,1.1,1,1,1.1,1,1, 

1,1,1,1.1,0,0.0.0,0,0,0 

1,0,0,0.1,0,0,0,0,0,0,0, 

0,0,0,1,0,1,0,0,1,1,0,1 

,1,1,1,1,1,1,0,1,1,1,0, 

1,1,1,1,1,0,1,1,1,0,0,0 

0.1,0,1,0,1,0,1.0,0.0,0 >NC 

,0,1,0,1,0,1,0,1,0,0,0, 

1,0,0,1,1,0,1,0,1,0,1,0 

1,1,0,1,0,1,0,1,0,1,1,1, 

0,1,0.1,1,1,1,0,1,1,0.1 

1,0,0,0,1,0,1,0,1,0,1,0, 

1,0,1,0,1,0,1,0,0,0,0,0 

0,0,0,0,0,0.0,1,1,1,0,0 ,-NE 

1,0,1,0,1,0.1,1,1,0,1.0. 

1,1,0,1,1,0,1,1,1,1,1,1 

,1,0,1,1,1,0,1,0,0,0,0, 

0,0,0,0,0,1,0,0,1,1,0,1 

1,0,1,0,0,0,0,0,1,0,1,1, 

1,1,0,1,1,0,1,0,1,0,1,0 

0,1,0,1,1,1,0,0,0,1,0,1 >NE 

',0,0,0,1,0,0,0,0,0,0,1, 

1,0,0,1,1,0,1,0,0,0,0,0 

',1,0,0,0,1,1,1,0,1,0,1, 

1,1,0,1,0,1,1,0,1,1,0,1 

,0,1,0,1,0,1,0,1,1,1,0, 

0,1,0,0,0,0,1,0,1,0,1,0 

0,0,0,0,0,0,0,0,0,1,0,1 >NL 

1,0,1,0,1,0,1,0,1,1,1,1, 

1,0,1,1,1,0,1,1,1,1,1,1 

1,1,0,1,0,1,0,1,0,0,0,1, 

0,0,0,0,0,0,0,0,1,1,0,1 

,0,1,0,1,0,1,0,1,0,1,0, 

1,0,1,1,1,1,1,1,1,1,0,1 

0,1,0,0,0,1,0,1,0,1,0,1 >NY 

,0,1,0,1,0,1,0,1,0,0,1, 

0,1,0,1,1,0,1,0,1,0,1,0 

1,1,0,1,0,1,0,1,0,1,0,0, 

0,0,0,1,1,0,1,0,1,1,0,0 

1,0,0,0,1,0,1,0,1,0,1,0, 

1,0,1,0,1,0,1,0,1,0,0,0 

0,1,1,1,1,1,0,1,1,1,0,1 >NR 

,0,1,0,1,0,0,0,1,0,1,0, 

1,1,0,1,1,0,1,0,0,0,0,0 

1,1,0,1,0,1,0,1,1,1,1,1, 

0,1,0,1,0,0,1,0,1,1,0,1 



,1,1,1,0,1,1,1,1,0,1,0,1,0,1,0,1,0, 

1,0,0,0,1,0,1,0,1,0,1,0,1,0,1,1,1,1 

,0,1 

1970 DATA 1,0,0,0,0,0,0,0,0,0,0,0,0 >RF 

,0,1,0,0,0,1,0,0,0,1,0,0,0,0,0,1,0, 

1,0,0,0,0,1,0,0,0,1,1,1,1,1,1,1,1,1 

,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 

1980 BEN 21oe tableau >QD 

1990 DATA 1,1,1,1,1,1,1.1,1,1,1,1,1 >NK 

,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 

1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1 

,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1, 

1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 

,0,1 

2000 DATA 1,0,0,0,0,0,0,0,0,0,0,0,1 >NF 

,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,1,0,1,1,0,1,1,1,1,1,0 

,1,1,1,0,1,0,0,0,1,1,1,1,1,1,0,1,1, 

1,1,1,1,1,1,0,1,1,1,1,0,1,0,1,1,0,1 

,0,0,0,1,0.1,0,1,0,1,0,1,0,1,0,0,0, 

0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1 

,0,1 

2010 DATA 1,0,1,0,1,0,1,0,1,0,0,0,1 >NA 

,0,1,0,1,0,1,0,1,0,1,0,1,1,1,1,1,1, 

1,1,1,1,0,1,0,1,0,1,1,0,1,0,1,0,1,0 

,1,1,1,1,1,0,1,0,1,0,1,0,1,0,1,0,1, 

0,0,0,0,0,0,0,0,1,0,1,0,1,0,1,1,0,1 

,0,1,0,1,0,0,0,0,0,1,0,1,0,1,0,1,0, 

1,0,1,0,1,1,1,0,1,0,1,0,1,1,0,1,0,1 

.0,1 

2020 DATA 1,0,1,0,1,0,1,0,1,1,1,1,1 >NA 

,0,1,0,1,0,1,0,1,0,0,0,1,0,1,1,1,0, 

1,0,1,0,0,1,0,1,0,1,1,0,1,0,1,0,1,0 

,1,0,0,0,1,0,1,0,1,0,1,0,1,0,1,0,0, 

0,0,1,0,0,1,0,1,0,0,1,0,1,0,1,1,0,1 

,0,1,0,1,0,1,1,0,1,1,0,1,0,1,0,1,0, 

1,0,1,1,0,1,1,1,0,1,1,0,1,0,0,1,0,1 

,0,1 

2030 DATA 1,0,0,0,0,0,0,0,0,0,0,0,0 )NQ 

,0,1,0,1,0,0,0,0,0,1,0,0,1,0,0,0,1, 

0,0,1, o, 1,1, 0,1, 0,1, i;i, 1,1, 1,1, 1,1 

,1,1,1,1,1,1,1,0,1,0,1,1,1,1,1,0,1, 

1,0,1,0,1,1,1,1,0,0,1,0,1,0,1,1,0,0 

,0,0,0,0,0,0,0,0,0,0,0,1,0,1,0,1,0, 

0,0,0,0,1,0,0,0,0,0,0,0,1,1,0,1,0,1 

,0,1 

2040 DATA 1,0,1,1,0,0,1,1,1,1,1,1,1 >NE 

,1,1,0,1,0,1,0,1,1,1,1,1,1,1,0,1,1, 

1,1,1,0,0,1,0,1,1,1,1,0,0,1,1,0,0,1 

,0,0,0,0,0,0,1,0,1,0,1,0,1,0,1,0,1, 



0,1,0,1,0,1,0,1,0,1,1,0,0,0,1,1,1,0 

,0,1,1,0,1,0,1,1,0,1,0,1,0,0,0,1,0, 

1,0,0,0,0,0,0,0,1,8,9.0.1.0,0,1,1,1 

,0,1 

2050 DATA 1,1,1,0,1,1,0,1,0,0,0,0,1 >NC 

,0,0,0,0,1,1,0,1,1,0,1,0,1,0,1,1,0, 

1,0,0,0,1,1,0,0,0,1,1,0,1,0,0,0,0,0 

,0,1,1,1,1,0,0,1,0,1,0,0,0,1,0,1,0, 

1,0,0,1,0,1,0,1,0,0,0,0,1,0,1,1,0,1 

,1,1,1,1,1,0,0,0,1,0,0,1,1,0,1,0,1, 

0,1,1,1,1,1,0,1,1,0,1,0,1,0,1,1,1,1 

,0,1 

2060 DATA 1,0,0,0,0,0,0,0,0,1,0,0,0 >QD 

,1,1,0,0,1,0,0,0,0,0,0,0,0,0,1,0,0, 

0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1 

,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 

2070 BEN 3)n tableau >QÏ 

2080 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1 « 
,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 
1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1 
,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 

1,1,1,1,1,0,1,0,1,1,1,1,1,0,1,1,1,1 

,0,1 

2090 DATA 1,0,0,0,0,0,0,0,0,0,0,0,0 >NQ 

,0,0,0,0,0,0,0,0,0,0,0,1,0,1,0,1,0, 

0,0,1,0,1,0,0,1,0,1,1,0,1,1,0,1,1,1 

,0,1,0,1,1,1,1,1,1,1,1,1,1,1,1,0,1, 

0,1,0,1,0,1,0,1,0,1,1,0,1,0,1,1,0,1 

,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0, 

0,0,1,0,1,0,1,0,1,0,0,0,1,0,0,0,0,1 

,0,1 

2100 DATA 1,0,1,0,1,1,0,1,1,1,0,1,0 >KB 

,1,1,1,1,1,0,1,1,1,1,0,1,0,1,0,1,0, 

1,0,1,0,1,1,0,1,0,1,1,0,0,0,1,0,0,1 

,0,0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,1, 

0,1,0,1,0,1,0,1,0,0,0,0,1,0,1,1,1,1 

,0,1,0,1,1,0,1,0,1,0,1,1,1,0,1,1,1, 

1,1,1,0,0,0,1,0,1,0,1,0,1,1,1,1,0,1 

,0,1 

2110 DATA 1,0,0,0,0,0,0,0,0,0,0,1,0 )« 

,1,0,0,0,0,0,0,0,0,1,0,1,1,1,0,1,0, 

0,0,0,0,0,1,0,1,0,1,1,1,0,1,1,1,1,1 

,1,1,1,1,0,1,1,1,1,1,1,1,1,0,1,0,1, 

0,0,0,1,0,1,1,1,1,0,1,0,1,0,1,1,0,0 

,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0, 

0,0,1,0,1,0,1,1,1,0,1,0,0,1,0,1,0,1 

,0,1 

2120 DATA 1,1,1,1,1,1,0,1,0,0,0,1,1 >ND 

,1,0,1,0,1,0,1,1,1,1,0,1,0,1,0,1,0, 

1,0,1,1,0,0,0,1,0,1,1,0,0,0,0,0,0,1 



,1,1,1,1,0,1,0,0,0,1,0,0,0,0,1,0,1, 

0,1,0,0,0,1,0,0,1,0,1,0,1,0,1,1,0,1 

,1,1,1,1,1,0,0,0,0,0,1,1,0,1,1,1,1, 

1,0,1,0,1,0,1,0,1,0,1,1,0,1,0,1,0,1 

,0,1 

2130 DATA 1,0,0,0,0,0,0,1,0,1,1,1,0 >NT 

,1,0,0,0,0,0,0,0,0,1,0,1,0,1,0,1,0, 

1,0,0,1,0,0,0,1,0,1,1,1,1,1,1,1,0,1 

,0,0,0,0,0,1,0,1,1,1,1,1,1,1,1,0,1, 

0,1,0,1,0,1,1,0,1,0,1,0,1,0,1,1,0,0 

,0,0,0,0,1,0,1,1,1,1,1,0,0,0,0,0,0, 

0,0,1,0,1,0,1,0,0,0,0,0,0,1,0,1,0,1 

.0,1 

2140 DATA 1,0,1,1,1,1,1,1,0,0,0,0,0 >Mt 

,1,0,1,1,1,1,1,1,0,1,0,1,0,1,1,1,1, 

1,1,0,1,0,1,0,1,0,1,1,0,0,0,0,0,1,0 

,0,1,1,1,0,0,0,1,0,0,0,0,0,0,0,0,1, 

0, 1,0,0,0,0,0,0,0,0,0,0, 1,0, 1, 1, 1, 1 

,1,1,1,1,0,1,1,0,1,1,1,1,1,1,1,1,1, 

1,1,1,1,1,0,1,0,1,1,1,1,1,1,1,1,1,1 

,0,1 

2150 DATA 1,0,0,0,0,0,0,0,0,0,0,0,0 >QZ 

,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0, 

0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1 

,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 

2160 BEN 4)k tableau >QU 

2170 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1 >Ntf 
,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 
1,1,1,1,1,1,1,1,1,1,1,0,1,0,1,0,1,0 
,0,0,1,0,0,0,1,0,1,0,1,0,1,0,0,0,1, 
0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1 
,0,1,0,1,0,1,0,1,0,1,0,1,0,0,0,1,0, 
1,0,1,0,0,0,1,0,1,1,1,1,1,1,1,1,1,1 
,0,1 

2160 DATA 1,0,1,0,0,0,1,0,1,0,1,0,1 >HY 
,0,1,1,1,0,1,0,1,1,1,1,1,0,1,0,0,0, 
0,0,0,0,0,0,0,1,0,1,1,0,1,0,1,0,1,0 
,1,0,1,0,1,0,0,0,1,0,1,0,0,0,0,0,1, 
0,1,1,1,1,1,1,1,1,1,1,0,1,0,1,1,0,1 
,0,1,0,0,0,1,0,0,0,1,0,1,0,1,0,0,0, 
1,1,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1 
,0,1 

2190 DATA 1,0,1,0,1,0,1,0,1,0,1,0,1 >HI 
,0,1,0,1,0,1,0,0,0,1,0,1,1,1,1,1,1, 
1,0,1,1,1,1,1,1,0,1,1,0,1,0,1,0,1,0 
,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,1,0,1,1,0,1 
,0,1,0,1,0,1,0,1,0,1,0,0,0,0,0,1,0, 
1,0,1,0,1,1,1,1,1,1,1,1,1,0,1,1,0,1 
,0,1 

2200 DATA 1,0,1,0,1,0,0,0,0,0,1,0,1 >M) 
■ ,1,1,1,1,0,1,0,1,0,0,0,1,0,0,0,0,0, 



70,0,0,0,1,0,0,1,0,1,1,0,1,0,1,1,1,1 

,1,0,1,0,1,0,0,0,1,0,1,0,1,0,1,0,1, 

0,1,1,1,1,1,1,1,0,1,0,1,1,0,1,1,0,1 

,0,0,0,0,0,0,0,1,0,1,0,1,0,1,0,1,0, 

0,0,1,0,1,0,1,0,0,0,0,0,0,0,1,0,0,1 

,0,1 

2210 DATA 1,0,1,1,1,1,1,1,1,0,1,0,1 >SC 

,0,1,0,1,0,1,0,1,1,1,0,1,0,1,0,1,1, 

1,1,1,0,1,1,0,1,0,1,1,0,0,0,0,0,1,0 

,1,0,1,0,1,0,1,0,1,0,1,0,1,0,0,0,1, 

0,1,0,0,0,1,0,0,0,0,0,0,1,0,1,1,0,1 

,0,1,0,0,0,1,0,1,0,1,0,1,0,1,0,1,0, 

1,0,1,1,1,0,1,0,1,0,1,0,1,1,1,1,0,1 

,0,1 

2220 DATA 1,0,1,0,1,0,1,0,1,0,1,0,0 >NI 

,0,1,0,0,0,1,0,1,0,1,0,0,0,1,0,1,0, 

1,0,1,0,0,0,0,1,0,1,1,0,1,0,0,0,1,0 

,1,0,1,0,1,1,1,1,1,1,1,0,1,0,1,0,1, 

1,1,0,1,0,0,0,1,1,0,1,0,1,0,1,1,0,1 

,0,1,1,1,0,1,0,1,0,0.0,0,0,0.0,1.0. 

0,0,1,0,1,0,0,0,1,1,1,1,1,0,0,1,0,1 

,0,1 

2230 DATA 1,0,1,0,1,0,0,0,1,0,1,1,1 >NK 

,1,1,1,0,1,1,0,1,1,1,0,1,0,1,1,1,0, 

0,0,1,0,1,1,0,1,0,1,1,0,1,0,0,0,1,0 

,1,0,0,0,0,0,0,0,0,0,1,0,1,0,0,0,1, 

0,0,0,0,0,1,0,0,0,0,0,0,1,0,1,1,0,1 

,1,1,1,1,0,1,1,1,1,0,1,1,1,1,1,1,0, 

1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 

,0,1 

2240 DATA 1,0,0,0,0,0,0,0,0,0,0,0,0 >QZ 

,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1 

,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 

1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 

2250 KODE lsPAPEB 2:CLS;PEN >ZV 

2260 PAPER 0:PEN 3:L0CATE 16,1:PBIN >W 
T" TABLEAU";TAT 

2270 PAPER 2:PRIMT:PeiNT:PEN 1:PBIH >RZ 
T TABI16) "TRESOES :*;tr:PBl((T 

2260 PRINT:PEN 0:PRINT TAB(15) 'm >NA 
BONUS «««« 

2290 bp=0:be=0 >UC 

2300 IF tr=21 THEN bp=500:be=50 >TH 

2310 IF tt=22 THEN bp=10O0;be=10fi >ZT 

2320 IF tr=23 THEN bp=1500:be=150 >ZF 

2330 IF tr=24 THEN bp=2OO0:be=2O0 >ZZ 

2340 IF tr=2S THEN bp5000:be=25Q >AB 

2350 tr=0 >FH 

2360 PRINTiPEN liPBIKT TAB(U) 'Fol >ED 
nts : ";:PBINT "*";bp 

2370 PEN 1:PRIHT TABI14) 'Energie : >NA 
i "jiPBINT "*"jbe 



2380 PBINT:PRINT:PEN 0:PBINT TAB(S) >NQ 

•Hë PASSAGE DU TABLEAU ■••" 
2380 PEN 1:PRINT:PRIHT TAB(14) "Pal >IA 
nts : VPBINT "t";250tlNT(sc/1000 
) 

2400 PEINT TA8U4) "Energie : ";:PB >FP 
INT "♦"jlOOtlNTlsc/lOOO) 
2410 e=e*100MNT(sc/'1000Mbe m 

2420 sc=sct25QHNT<sc/10O0)*bp >VH 

2430 IF sc)=30000 AND sv=l THEN PBI >GU 
HT:PBINT"Vous venez d'attelndre";sc 
/points, "i'vous gagnez un ";:PEN 3 
:PBINT'Bonu9 de 5000 points"; :PEN 1 
:PBINT"et une";îPEN 3:PRINT" Vie Su 
ppl dentaire. ":sc=sc+5000:v=v*l:sv= 


2440 IF vs(INT<sc/100000))=l THEN v >8U 
s<INT<sc/lO0O00))=0:PRINT:PRINT"Vou 
s venez d'Bttelndre";sc; B points,";" 
vous gagnez un "s: PEN 3:PBINT"Bonus 

de 10000 points";:PEN l:PRINT"et u 
ne";:PEN 3:PRINT" Vie Suppldentair 
e.":sc=sc*10000:v=v+l 
2450 PEN 3:PRINT:FRIHT" ENEBGIE : >JN 



*!e;" SCOBE :"jsc:PRlNT TABU7) 

■VIES :";V 

2460 PEN 1:L0CATE 5,2S:PB1NT'PRESSE >r1Y 

Z 'ESPACE' POUB CONTINUER" 

2470 aMINKETt >UH 

2480 IF a*-' • THEN 2490 ELSE 2470 >YB 

2490 GOTO 660 >GC 

2500 KODE l.'PAPER 2:CLS >RG 

2510 IF sc>H THEN M=sc >TI 

2520 PEN 3:L0CATE 14,10:PRINT*TABL£ >QC 

AUI :";Ut 

2530 PBINTiPEH l.-PRINT TAB(14) 'SCO >PN 

RE :';SC 

2540 PRINT:PEN 0:1F «S=SC THEN INK >GN 

0,1,2 

2550 PRINT TAB(IO) "HEILLEUB SCORE >JG 

:";NS 

2560 LOCATE B,25:PEN l:PRINT'Voulez >KH 

-vous rejouez ? o/n" 

2570 a»=INKET»:IF a»=" THEN 2570 >ZP 

2580 IF a»="o' OR a.="0" THEN RESTO >IK 

BE:GOTO 590 

2590 IF a«="n" OB at="N" THEN CLS:E >CV 

ND 



2600 GOTO 2570 >NK 

2610 IF c(«p,ypl=l THEN PEN 1:L0CAT >NF 

E ip,yp:FRINT CHRI(240):RETUBN 

2620 IF c(zp,yp)=2 THEN PEN 2:L0CAT >PB 

E «p.ypîPRIHT CHR»(241):RETUBN 

2630 IF c(ip,yp)=3 THEN PEN 3:L0C*T >PF 

E ip,yp:PRINT CHR«(242):RETURN 

2640 IF c(zp,yp)M THEN PEN 3:L0CAT >PJ 

E ip,yp:PRINT CHR»(2*3):RETURN 

2650 PEN 3:L0CATE ip,yp:PB!NT CHRM >BT 

240):RETURN 

2660 PEN 3:L0CATE i2,y2:PRINT CH»( >TC 

245):G0T0 2660 

2670 PEN 3: LOCATE i2,y2:PRINT CHBK >GB 

245) 

2660 SOUND 1,900,25,10,6 >BU 

2690 SOUND 1,200,10,15 >PW 

2700 SOUND 1,50,10,15 >NV 

2710 FOR z=l TO 2000:NEIT >TD 

2720 e=0:LOCATE ll,13,l:PBINTIl,e;" >FN 



2730 GOTO 1610 

5000 LOCATE 16,12:PBINT" 

:BETUBNA 



>HH 
>JE 



CPCi 



HORS-SERIE 15 



DISC CPC HS 




ANCIENS NUMEROS 







• HORS-SERIE 

□ n° 4, 6, 7, 8, 9, 10, 1 1 , 1 2, 1 3, 14 1 5 F 

• DISQUETTES HORS-SERIE 

□ HS 1,2,3,4,5,6,7,8,9, 10, 

11, 12, 13, 14 140 F 



Chaque disquette comporte tous les programmes du n" hors-série cor- 
respondant. Les abonnes à CPC bénéficiant du tarit unitaire de 110 F 
pour les disquettes. 



Code postal : 
Date: 



Entourez le(s> numérote) choisi». 



Ville : 

Signature 



Merci d'écrire en majuscules. Ci-joint un chèque libellé a l'ordre des Editions SORACOM. Retournez le(s) couponfs} ou une photocopie à Editions SORACOM - La Haie 
de Pan- 35170 BRUZ. 



UTILITAIRE 



IMPRESSION D'ENVELOPPE 



Voici un petit programme (9 Ko) 

qui vous permettra d'imprimer 

l'adresse de vos correspondants 

directement sur l'enveloppe (il 

ne dessine pas le timbre tout de 

même). Le programme prend en 

compte deux tailles d'enveloppes 

(162x1 14 ou 220x1 10), il 

permet différents styles 

d' impression et peut contenir les 

adresses de vos principaux 

correspondants. 



Thierry BOUCHER 



Déroulement 
du programme 

1 Impression de l'adresse de l'expéditeur 
(choix O/N) 

2 Choix du format de l'enveloppe 
(162*114ou 220*110) 

3 Choisir le style d'impression 

4 L'adresse du destinataire est-elle en 
mémoire. Si oui alors choisir et 6 

5 Entrer les données du destinataire^ 

6 Correction des erreurs 

7 Impression (possibilité de retour ' 
sans impression) 

8 Autre enveloppe ou fin 



Liste des principales 
variables 

a : coordonnées x pour affichage à l'écran 
b : coordonnées y pour affichage à l'écran 
titre$ : titre 

a$ : commande du clavier 
dest$ : adresse des destinataires en mé- 
moire 
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ORG 


900OH 
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LOAD 


9000H 
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-^^Jlggl 


1 1 


9000 


010990 






LD 


BC . RSX 






12 


9003 


2 1 1390 






LD 


HL, NOYAU 




-**"Ti 1 


13 


8006 


C3C1BC 






JP 


OBCU1H V- 


ï^T /J*""* ^t* 




14 


9009 


0E9O 


SX: 




DEFW 


NOH > 






15 


900B 


C31790 






JP 


CADRE 


A ,r— ~~~^ "~l L — ""' 


16 


900E 


434 14452 


DM; 




DB 


'CALR' - / 


j** - — i=i;; J_ 


!7 


9012 


C5 






DB 


' E ' +80H J s 


"S. / —~ 
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OYAL 




DEFS 


4 ^— 
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21 


9017 


FE04 


ADRE 




C? 


4 


4 PARAMETRES 


22 


9019 


CO 






SET 


NZ 


SINON ERREUR 


23 


90 1A 


CD4990 






CALL 


ORIGINE 


FIXE COORD ORIGINE 


24 


90 1D 


DD5603 






LD 


D, IIX+31 


RECUPERE LA LONGUEUR 


25 


9020 


DD5EÛ2 






LD 


E, { IX + 21 




2G 


9023 


D5 






FUSH 


DE 




27 


9024 


210000 






LD 


HL,0000 


C'EST UNE HORIZONTALE 


28 


9027 


CDF9BB 






CALL 


0BBF9H 


TRACE LA LIGNE 


29 


902A 


BD6601 






LD- 


H, (IX+11 


RECUPERE LA HAUTEUR 


30 


902B 


DD6E0O 






LD 


L , ( I X+0 } 




31 


9030 


E5 






PUSH 


HL 




32 


9031 


1 10000 






LD 


DE, 0000 


C 'EST UNE VEETICALE 


33 


9034 


CDF9BB 






CALL 


0BBF9H 




34 


9037 


CD4990 






CALL 


ORIGINE 




35 


903A 


El 






POP 


HL 


HAUTEUR 


36 


903 B 


110000 






LD 


DE ,0000 


VERTICALE 


37 


903E 


CDF9BB 






CALL 


0BBF9H 




38 


9041 


Dl 






POP 


DE 


LONGUEUR 


39 


9042 


210000 






LD 


HL,0000 


HORIZONTALE 


40 


9045 


CDF9BB 






CALL 


0BBF9H 




41 
42 


9048 

9049 


C9 

DD5607 C 






EET 
LD 


D, ( 1X+71 


RECUPERE LES 




43 


904C 


DB5E06 






LD 


E, t IX+61 


COORDONEES 


44 


904F 


DD6605 






LD 


H , I I X+5 1 ■ 


DE L'ORIGINE 


45 


9052 


DD6E04 






LD 


L, 1ÎX+4) 




46 


9055 


CDCOBB 






CALL 


OBBCOH 




47 


9058 


C9 






RET 






48 










END 







expdt$ : adresse de l'expéditeur 
données$ : adresse du destinataire 

long : longueur maximale autorisée pour 

une ligne à l'écran 

longl : tabulation à l'impression 

type : type d'enveloppe 

sélect : flag impression de l'adresse 

expéditeur 

imp : sélection du type d'impression 

Le programme utilise les RSX de A. 
COUCHOT, article paru dans le CPC HS 

N°5. 






IMPRESSION D'ENUELOM 










Il | MESSE EXPEDITEUR : 


ADRESSE DU DESTINATAIRE : 


M" ! ! 

(SUITE) : : 
VILLE : i 
CODE POSTAL ; : 




cornci iMiia 


■^flâiar ftâfe* BIP"* 

f6 ==> InpiSSl f? ::) UMnw f8 ==> PUM 




10 ' 

20 '«m IMPRESSION D'ENVELOPPE V4 

.2 23/10/68 «•« 

30 ' 

40 IF PEEK(48000)=42 THE» 50 ELSE G 

OSUB 1950:CALL l>8000:GOSUB 2360 

50 DIH dest«(50),a(50),b(50) 

60 titreJ^IMPRESSION D'ENVELOPPE": 

IKKMUU 

70 ' 

80 '•><« PBOGBAIUTION DES TOUCHES 

DU PAVE NUHEB1QUE «Mil 

90 ' 

100 KEÏ 128, "Avenue ":KEY DEF 15.1, 

48,128:KEY 129, "Sue ":KET DEF 13,1, 

49,129:KEY 130, "Boulevard ":ICEÏ DEF 

14,1,S0,130:KEY 131, "Boute ":KEÏ D 
EF S,1,51,131:KEY 132, "Cheiln ":KEY 

DEF 20,1,52,132:KET 133, "Allée ":K 
Eï DEF 12,1,53,133 
110 KEY 134, "lapasse ":KEY DEF 4,1, 
54,134:KEY 135,'Bêsldence ":KEY DEF 

10,1,55,135:KEY 136, "Place ":KEY D 



EF 11,1,56,136 

120 ' 

130 'mil ADBESSE EXPEDITEUR «••« 

140 ' 

150 MODE 2: IKK 0,26: IKK 1,26:PAPEB 

0:PEN l.'BOBDEB 26:L0CATE 15,8:PRINT 

-IMPRESSION DE L'ADBESSE DE L'EIPED 

ITEUB";:ùDL:PBINT" (0/N)":ùST 

160 LOCATE 19,5:ÙDT:PBINT tttre»:ÙS 

T 

170 ÙCADBE. 140, 318, 360, 36 

180 ÙCADBE, 136, 315, 368, 44 

190 ÙCADBE, 40, 150, 559, 150 

200 ÙCADBE, 40, 265, 559,0 

210 BESTOBE, 1690: ÙDL: FOR 1=1 TO 5:B 

EAD eipdtUkLOCATE 12,l«10:PBINT e 

iod»(l):NEXT:ùST 

220 INK 1,0 

230 GOSUB 1390 

240 IF AM"0" OB A»="o" THEN SELECT 

=1 ELSE SELECT=0 

250 ' 

260 'mit CHOU DU TYPE D'ENVELOPP 

E m»» 

270 ■ 

280 CLS:INK 1,26 

290 ÙCADBE,40,240,380,155:DBAU 40,2 

40:ÙCADRE,40,40,260,155:DRAU 40,40: 

NOVE 40,395:DBAU 420,24O:N0VE 40,39 

5:M0VE 40,195:DBAW 300,40 

300 LOCATE 28,2:PB1NT tij» 1 ";lt:L 

OCATE 21,15:PBINT 11;" 2 ";1S 

310 ÙCADBE,333,110,263,20:ÙCADBE,32 



| 9,106,271,28 

320 LOCATE 43,18:ÙDL:PRINT"TYPE D'E >VF 

NVELOPPE":ÙST:INK 1,0:G0SUB 1390 

330 C=VAL(A»):IF C<1 OB C>2 THEN PR >n 

INT CHR»(7):G0T0 320 

340 IF a»="2" THEN !ong=25: longl=25 >KB 

:TYPE=2 

350 IF a«="l* THEN long-35: longl=32 >CF 

360 ' >KK 

370 '«m TYPE D'IMPRESSION «««•• >TA 

380 ' >TB 

390 CLS: INK 1,26 >GD 

400 LOCATE 25,8:ùDT:PBINT*H0DE D'IN >AL 

PRESS I ON" : ÙST : ÙCADRE, 182, 270, 290, 39 

410 ÙCADBE, 178, 266, 298, 47 >UK 

420 LOCATE 20,12:PRINT"1 : QUALITE >QR 

COURRIER " 

430 LOCATE 20,14:PRINT"2 : CONDENSE >BV 

/ELARGIE/ITALIQUE' 

440 LOCATE 20,16:PBINT"3 : QUALITE >QI 

>8D STANDARD ■ 

>EE 450. LOCATE 20,18:PRINT"4 : STANDABD >BD 

>Bf /ITALIQUE" 

> u 460 ÙCADRE,140,105,360,130:ÙCADRE,1 >TG 
36,101,368,138 

470 INK 1,0:G0SUB 1390 >PA 

480 C=VAL(A»):IF C<1 OR C>4 THEN PB >IH 

>GT INTCHR»(7):G0T0 470 

490 IHP=VAL(A») >FD 

> T y 500 ' >BF 

>TF 510 '««il ADRESSE DU DESTINATAIRE >RG 

>Tï EN HEHOIBE »••" 

>RQ 520 ' >BH 

>VQ 530 CLS: INK 1,26 >FK 

540 LOCATE 15,B:PBINT"ADRESSE DU DE >AD 
STINATAIRE EN MEMOIRE"; :ÙDL:PRINT" 

>LK (O/N) ":ÙST 

>PK 550 ÙCADBE, 105,269,375,23 >TF 

>IA 560 ÙCADRE.lOl, 265,383,31 >TU 
570 INK 1,0: GOSUB 1390 >PB 

>RH 580 IF A»="0" OR A*="o" THEN GOTO 1 >CT 

>BJ 430 

590 ' >TE 

>BK 600 'm» BOUCLE PRINCIPALE IMII >BG 

)GB 510 ' >RH 

>PL 620 CLSMNK 1,26 >FK 

630 LOCATE 19,3:ÙDT:PR1NT titretiùS >GT 
T 

640 ÙCADRE, 140, 352, 360, 35 >TU 
650 ÙCADRE, 136, 348, 368, 43 >UE 
660 ÙCADRE, 40, 130, 599, 165 >TH 

>QH i 670 ÙCADRE, 40, 75,599, 25 >RN 





680 ÙCAOBE,40,300,599,23 >TI 

690 ÙCADRE, 40, 130, 599, 136 >UA 
700 ÙCADRE,40,13,599,55:ÙCADBE,344, >LG 
300,1,20 

710 LOCATE 1S,6:PBINT*ADRES5E EXPED >BN 
ITEUB : ";:IF SELECT=1 THEH PBINT 1 
«;" OUI ■;!» ELSE PBINT i»i" NON ■; 
I* 

720 LOCATE B,6:ùCADRE,9O,3O0,l,20:l >TG 
F TYPE=2 THEN P8INT l»;" 2 ";U ELS 
E PBINT Ml" 1 "il» 

730 LOCATE 45,6:PR1NT"I1(PRESSI0N : >TE 
";:IF IMP=1 THEN PBINT i»;" NUI "(1 
» ELSE IF lr»>=2 THEN PBINT i»;" EU 
BGIE/ITALIQUE ■;» ELSE IF IHP=3 TH 
EN PBINT !»;■ STANDARD ";U ELSE PB 
INT Mj* STANDARD/ ITALIQUE "(il 
740 BESTOBE 1650: FOR 1=1 TO 5: READ >QV 
HON»(l):NEXT 

750 FOR 1= 1 TO 5:L0CATE 10,I+10:PH >ÏE 
INT NOM»(l>:NEÏT 

760 LOCATE 16,8:PRINT"ADRESSE DU DE >WC 
STINATAIBE î" 

770 LOCATE 10,22:PRINT"SHIFT*: fO >ZB 
==> Avenue fl ==> Bue f 
2 ==> Boulevard" 

780 LOCATE 10,23:PRINT" f3 >PN 
=-> Route (4 ==> Cheiln f 
5 ==> Allée" 

790 LOCATE 10,24:PRINT" f6 >TJ 
==> Impasse (7 ■«> Résidence ( 
8 ==> Place 

800 IF select2=l THEN 850 ELSE 1NK >DD 
1,0 

610 FOB 1=1 TO BîLOCATE 25*long,ltl >VI 
0:PRINT ":":NEIT 

820 FOR 1=1 TO 5 >t!B 

830 LOCATE 25,IH0:LINE INPUT ",D0 >HL 
NNEESl(l) 

840 IF LEN ( DONNEES»») )>long THEN L >TÏ 
OCATE 10,20:PRINT i»;' LIGNE TROP L 
ONGUE POUR CE TTPE D'ENVROPPE ";i» 
:LOCATE 25, i»10:PRINT SPACE»lLEN(do 
nnees»ll))):LOCATE 25*long, IHOiPRI 
NT ":":LOCATE 25,i«10:G0T0 830 ELSE 
LOCATE 10,20:PRINT SPACE» (55): NEIT 
850 FOR 1=1 TO 5iL0CATE 25*long,l+l >VB 
0:PBINT ":":NEÏT 

B60 LOCATE 10,20:PBINT"C0BBECT "ils >AV 
;• (0/N) ";M:INK 1,0 
870 GOSUB 1390 >QK 

880 IF A»="n" OR A«="N" THEN GOSUB >HL 



1 1250 ELSE 900 
890 GOTO 650 >AG 

900 LOCATE 10,20:PRINT"lftPBESSI0N >IL 
■;l»i" (0/N) "jls 

910 GOSUB 1390 >QE 

920 IF As="N" OR A»="n" THEN GOTO 1 >CQ 
180 

930 IF INP(30000)=94 THEN LOCATE 10 >JK 
,20:PRINT («;• 1HPRIHAMTE PAS EN Ll 
GNE "iis;" ":GOTO 930 
940 IF INP130000IO30 THEN 930 ELSE >DA 
980 

850 ■ >TE 

960 'm» MODULE IMPRESSION •••<• >TF 
970 ' >TG 

960 LOCATE 10,20:PRINT SPACEN2S) >6C 
990 PRINTI8,CHRS(27)i"à"i >UJ 
1000 PBINT I8,CHBS(15) >QC 

1010 IF SELECT=0 THEN 1080 >TF 
1020 RESTOBE 1690:F0R J=l TO 5 >IL 
1030 READ EIPDT«(J) >NN 

1040 NETT >KG 

1050 FOR J=l TO 5:PRINT I8,EIPDT»(J >JB 
):NEIT 

1060 FOR i=l TO 5:PB1NT»8:NEIT >YF 
1070 GOTO 1090 >HF 

1080 FOR i=l TO 9:PRINT18:NEIT >TH 
1090 IF iip=2 THEN PRINT»8,CKR»(27) >UV 
i"»":i»=CHBi(14) 

1100 IF iip=l THEN PRINTI8,CHRt(27) >QE 
i"l";CHR»!l):i»=":longl=longH4 
1110 IF iip=3 THEN PRINTI8,CKR«(27) >EI 
i"à":i«="":longl=lonjl*4 
1120 IF iip=4 THEN PRINT»8,CHR»(27> >IH 
i"à";CHR»(27);"4":i«="":longl=longl 
*4 

1130 FOB 1=1 TO 5:1F DONNEES»! 1)="" >NA 
THEN 1140 ELSE PB1NTI8, i»iTAB(long 
l);donnees»(i) 

1140 NEIT >KH 

1150 ' >IK 

1160 '»•» FIN OU SUIVANTE >■»«• >YA 
1170 ' >ÏB 

1180 LOCATE 10,20:PBINT l»i" AUTRE >LF 
ADBESSE (0/N) ";i»:select2=0 
1190 GOSUB 1390 >IG 

1200 IF A»="0" OB A*="o" THEN CLS:G >GT 
OTO 150 

1210 CLS:END >HJ 

1220 ' >XH 

1230 •»"•» COBBECTION DES ERREURS >ÏJ 

4 »i» 



} 1240 ' >tt 

1250 FOR 1=1 TO S >CA 

1260 LOCATE 7, I+10:PRIKT l:NEIT >AN 
1270 LOCATE 10,20:PRINT i»;" NUHERO MIL 

A MODIFIES "jil 

1280 GOSUB 1390 >IG 

1290 1=VAL!A»):IF Kl OB l>5 THEN 1 >CA 
270 

1300 FOB J=l TO 5:L0CATE 7,JH0:PR1 >HÏ 
NT ■ ":MT:L0CATE 10,20:PRINT SPA 
CE»(68):LDCATE 25,I+10:PRINT SPACE» 
(long) 

1310 LOCATE 25,I»10:LINE INPUT"", do >NC 
nnees»(i) 

1320 b=LEN(DONNEES»(l>> >TQ 

1330 IF b>long THEN LOCATE 10,20:PR >BV 
INT 1*;' LIGNE TBOP LONGUE POUR CE 
TYPE D'ENVELOPPE : TAPEZ UNE TOUCHE 

";i«:LOCATE 25,i»10:PRINT SPACE» (L 
EN(donnees»(l))):LOCATE 25Mong,Ul 
0:PRINT ":":LOCATE 25,i»10:CALL tiBB 
O6:G0T0 1300 ELSE 1340 
1340 LOCATE 10,20:PBINT SPACE»(6B) >BL 
1350 BETURN >FC 

1360 ' >TC 

1370 '•»«< ATTENTE D'UNE REPONSE « >TD 

ifii 

1380 ' >TE 

1390 A»=INKET»:IF A«=" THEN 1390 E >LÏ 
LSE RETUBN 

1400 ' >IH 

1410 '•»•• ADRESSE DESTINATAIRE EN >XJ 
MEMOIRE HUII 

1420 ' >IK 

1430 CLS:INK 1,26:REST0BE 1730:F0R >JB 
1=1 TO 40:READ desMIDiNEXT 
1440 FOB 1=1 TO 40:READ a,b:LOCATE >Dfl 
a,b:PRINT dest«(l):NEIT 
1450 ÙCADRE,36,6,568,3B8:ÙCADRE,40, >IM 
10,560,38O:H0VE 310,10:DRAR 310,389 
:FOR 1=105 TO 295 STEP 95:M0VE 40, i 
:DRAV 600,1:NEXT 

1460 LOCATE 35,3:PR1NT"(1)":L0CATE >MH 
70,3:PRINT"(2)":L0CATE 35,9:PRINT"( 
3)":L0CATE 70,9:PRiNT"(4)":L0CATE 3 
5,15:PRINT"(5)":L0CATE 70,15:PRINT" 
<6)':L0CATE 35,21:PRINT"(7)":L0CATE 
70,21:PR1NT"(8) 

1470 ùDL:b»="VOTEE CHOII":F0R 1 = 1 T >GK 
LEN(B»):LDCATE 78, 1«7:PR1NT MID»( 
B»,l,l):NEXT:ùSTiuCADBE,611, 100,23, 
4 200 



1480 IKK 1,0 


>UG 


1490 GOSUB 1390 


>K 


1500 a=VAL(a») 


>CD 


1510 ON a GOTO 1520,1550,1560,1570 


>VP 


1580,1590,1600,1610 




1520 BESTORE 1730 


>LU 


1530 FOR 1=1 TO 5: READ données»!!) 


>VÏ 


NEXT:CLS:INK 1,26:F0R 1=1 TO 5:L0CA 


TE 25,ltlO:PRINT D0NNEE5»(I):NEXT 




1540 select2=l:G0T0 630 


>BT 


1550 RESTOBE 1740.-G0T0 1530 


>VV 


1560 BESTOBE 1750:G0T0 1530 


>VI 


1570 RESTORE 176O:G0T0 1530 


>VZ 


1580 BESTORE 1770:G0T0 1530 


>VB 


1590 RESTORE 178O:G0T0 1530 


>VD 


1600 RESTORE 1790:G0T0 1530 


>VU 


1610 RESTORE 16O0.-G0T0 1530 


>VN 


1620 • 


>ÏB 


1630 ' 


>ÏC 


1640 ' 


>ÏD 


1650 DATA "NON PRENOM :", "ADRESSE >CG 


:", "(SUITE) :", "VILLE 




:","CODE POSTAL :" 




1660 ' 


>ÏF 


1670 'LIGNE 1680: ENTREZ ICI VOTEE 


>rc 


NOM ET VOTRE ADRESSE 




1680 ' 


>TH 


1690 DATA "eip: VOTRE NOM"," VO >VL 


TBE ADRESSE"," SUITE", ■ COE 




E POSTtVILLE","" 




1700 ' 


>TA 


1710 'ADRESSE DES DESTINATAIRES 


>TB 


1720 ' 


>ÏC 


1730 DATA "NON", "ADRESSE", "ADRESSE 


>JX 


SUITE", "VILLE", "COD POST" 






>NV 




>m 




>NI 




>NÏ 




>NZ 




>NA 




>NB 


1810 ' 


>ÏC 


1820 ' 


>TD 


1830 ' 


>re 


1840 DATA 8,2,6,3,6,4,8,5,6,6 


>VI 


1850 DATA 42,2,42,3,42,4,42,5,42,6 


>ZM 


1660 DATA 8,8,8,9,8,10,8,11,8,12 


>n 


1870 DATA 42,8,42,9,42,10,42,11,42, 


>BZ 


12 




1880 DATA 6,14,8,15,8,16,8,17,8,18 


>ZT 


1890 DATA 42,14,42,15,42,16,42,17,4 >DK 



, > 2,18 

1900 DATA 8,20,8,21,6,22,8,23,8,24 >ZU 
1910 DATA 42,20,42,21,42,22,42,23,4 >DL 

2,24 

1820 ' >re 

1930 ' >TF 

1940 ' >TG 

1950 RESTORE 2020:a=a8000:F0B 1=165 >TK 

TO 1950 STEP 10:s=0 

1960 FOR 1=1 TO 10 >LN 

1970 READ l»:il=VAL('li"il«):P0KE a, >«« 

u:s=s+iK:a=a*l 

1980 NEIT >LK 

1990 READ ii:IF sOu THEN PRINT'er >VZ 

reur ligne ";i:POKE 18000,0:END 

2000 NEIT >KD 

2010 RETURN >EG 

2020 DATA 2a,d4,bd,22,2b,30,01,13,8 >JB 

0,21,829 

2030 DATA 0f,80,c3,dl,bc,O0,00,00,O >HH 

0,21,768 

2040 DATA 80,c3,2d,60,c3,34,80,c3,3 >KG 

b, 80, 1253 

2050 DATA c3,42,S0,44,cc,44,c8,44,d >KU 

4,53,1292 

2060 DATA d4,00,c3,ff,ff, 21, 49,80,2 >KK 

2,d4,1397 

2070 DATA bd,c9,21,97,60,22,d4,bd,c >KG 

9,21,1371 

2080 DATA ce,80,22,d4,bd,c9,2a,2b,8 >KK 

0,22,1217 

2090 DATA d4,bd,c9,f5,e5,le,02,cd,a >LM 

5,bb,1665 

2100 DATA 3e,19,cd,5a,bb,3e,ff,cd,5 >LN 

a,bb,1368 

2110 DATA Oe,08,06,04,56,af,cb,4b,2 >JR 

0,0e, 61 7 

2120 DATA cb,22,cb,22,cb,22,cb,22,l >JH 

8,04,976 

2130 DATA cb,27,cb,27,cb, 22,30,02,1 >KÏ 

6,03,1020 

2140 DATA 10,14,cd,5a,bb,23,0d,20,d >0 

b, 3e. 1103 

2150 DATA ff,el,d5,e5,cd,2a,80,el,d >LL 

l,ld,1760 

2160 DATA c8,3e,09,cd,Sa,bb,fl,24,e >KT 

5,18,1263 

2170 DATA b6,f5,2d,e5,le,02,cd,B5,b >LG 

b, 3e, 1352 

2180 DATA 19,cd,5a,bb,3e,ft,cd,5a,b >LQ 
,b, 06, 1312 

2190 DATA 04,cb,4b,20,04,23, 23,23,2 >HD (( 



3, 7e, 584 

2200 DATA cd,5a,bb,cd,5a,bb,23,10,f >LG 

6, 3e, 1323 

2210 DATA ff,el,d5,e5,cd,2a,80,el,2 >LP 

c,dl,1775 

2220 DATA Id,c8,fl,e5,ie,ce,t5,2d,e >LL 

5, le, 1478 

2230 DATA 04,cd,a5,bb,3e,19,cd,5a,b >LU 

b, 3e, 1192 

2240 DATA ff,cd,5a,bb,cb,43,28,04,2 >KU 

3,23,1121 

2250 DATA 23,23,0e,04,06,04,56,7b,f >JA 

c-, 03, 564 

2260 DATA 30,08, cb,22,cb.22,cb,22,c )KJ 

b, 22, 1004 

2270 DATA af,cb,27,cb,27,cb,22,30,0 >KB 

2,16,1192 

2280 DATA O3,10,f4,cd,5a,bb,cd,5a,b >KB 

b, 23, 1262 

2290 DATA Od,20,d9,3e,ff ,el,dS,e5,c >LY 

d, 2a, 1493 

2300 DATA 80,el,dl,cb,43,c2,21,81,2 >KH 

c, 7b, 1355 

2310 DATA fe,03,c2,2e,81,3e,09,cd,5 >KC 

a,bb,1179 

2320 DATA 2d,24,fl,ld,c8,f5,e5,18,9 >KD 

e, 00, 120/ 

2330 ' >YA 

2340 ' >YB 

2350 ' >YC 

2360 s=0:FOR a=19000 TO 19058 >VP 

2370 READ M:v=VAL("*"tb») >TY 

2380 s=stv >RB 

2390 POKE a,v >KA 

2400 NEH >KH 

2410 IF SO10341 THEN PRINT"erreur >NK 

dans les datas '2430-2540":P0KE 18 

000,0: END 

2420 CALL 1,9000 >PJ 

2430 RETURN >FC 

2440 DATA 01, 09,90,21, 13,90, c3,dl >ÏR 

2450 DATA bc, Oe, 90, c3, 17, 90, 43, 41 >ZC 

2460 DATA 44,52,c5,00,00,O0,O0,fe >YY 

2470 DATA 04,c0,cd,49,90,dd,56,03 >ZB 

2480 DATA dd,5e,02,d5,21,00,00,cd >ZZ 

2490 DATA f9,bb,dd,66,01,dd,6e,00 >ZG 

2500 DATA e5,ll,00,00,cd,f9,bb,cd >ZH 

2510 DATA 49,90, el, 11, 00,00, cd,(9 >ZI 

2520 DATA bb.dl, 21, 00,00, cd,f9,bb >ZC 

2530 DATA c9,dd,56,07,dd,5e,06,dd >AE 

2540 DATA 66, 05, dd, 6e, 04, cd, cO, bb >U 

2550 DATA c9» >YD 



JEU 



^fe 





// s' agit a" un jeu adapté de 
l'émission télévisée «LA ROUE 
DE LA FORTUNE». A vous de 
découvrir la phrase cachée. 

Le programme est composé de 2 par- 
ties : 

- le programme ROUE, uniquement 
programme de présentation et de lance- 
ment du jeu ROUE 1 
-le programme ROUE 1, programme 
principal 

Le programme ROUE1 débute par une 
routine DOUBLE TAILLE qui n'est 
pas de moi, mais qui est déjà parue dans 
CPC. Pour le reste, il suffit de suivre les 
directives de l'ordinateur. 

1ère Partie : obligatoirement 3 joueurs. 

Chaque joueur tape son prénom puis 

ENTER. 

2ème Partie : choisir une option. 

• Si vous tapez sur 1, choix d'une con- 
sonne 

• Si vous tapez 2, achat d'une voyelle 
(si votre capital est supérieur à 1500, 
sinon on passe au joueur suivant 

• Si vous tapez sur 3, tapez la solution à 
la demande de l'ordinateur, sans oublier 
les espaces et les signes 



1 - Choix d'une consonne : à la de- 
mande de l'ordinateur, tapez sur une 
touche pour tirage du gain. 



• Banqueroute : vous perdez vos gains 
et c'est au tour du joueur suivant 

• Passe : vous conservez vos gains, mais 
c'est au tour du joueur suivant. 

• Relance : Vous obtenez un jocker et 
vous recommencez à jouer 

• Autres cas : vous tapez votre con- 
sonne à la demande de l'ordinateur ou 
sur 1 si vous pensez avoir la solution. 

Dans ce dernier cas, à la demande de 
l'ordinateur, tapez votre phrase puis 
ENTER, sans oublier les espaces et les 
signes «.» ou «-». 

Autrement, l'ordinateur vous indiquera 
lorsqu'il n'y aura plus de consonne et 
vous demandera la solution. Faire 
comme ci-dessus. 

2 - Achat d'une voyelle : pas de tirage 
pour le gain. Donnez à la demande de 
l'ordinateur votre voyelle, puis retour 
au début (choix d'une option). 

3 - Solution : 2 possibilités. 

- soit achat d'une voyelle si vous tapez 
sur 1 puis sur Enter 

- soit donner votre solution. Voir 
ci-dessus. Si la phrase est bonne, on 
passe au jeu suivant et ainsi de suite. 

Le 4ème jeu est un peu différent. En 
effet, à la demande de l'ordinateur, ta- 
pez vos 5 consonnes puis votre voyelle. 
Enfin, donnez votre solution comme 
ci-dessus. 
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Variables principales 


MOTS 


Phrase à trouver 


LS 


Nombre de caractères de 




MOTS 


sco 


Score des joueurs 


VL 


Nombre des voyelles + espa- 




ces et signes de la phrase à 




trouver 


NBJ$ () 


Nom du joueur 


R$ 


Lettre proposée 


R 


Code ASCII de R$ 


NL 


Nombre de consonnes trou 




vées 


RP$ 


Phrase proposée 


J 


N° du joueur 


JEU 


N° du jeu 


TIT$ 


Titre de la phrase à trouver 


TI$ 


Type de gain 


REL() 


Nombre de jockers 


ALPH$ 


Alphabet 



ROUE 

10 MODE Û:INK û. 1; iWK l.UiiNK 2,0, M 

24:INK 3,9:PAPER 1:CL5:UIND0U 11,1, 

20,12.25:PAPER tl.l.-PEN tl.û.-CLS 11 

20 BORDER lhPLOT û,0,0:DRAy 0,399; >rlF 

DRAU fi39,399:DRAU 639,0:DRAV 0,0 

30 DATA 29,67,93,131,1B7,19S,221,25 >ÏU 

9, 286, 323, 3*9,367, 413,451. 477, 515, 5 

41,579 

40 FOR i=l T0 16:SEAD y:PL0T y.386. >HH 

0:DRAy y,366:PL0T y,354;DRAW y,334: 

PLOT y,322:DRAU y,302:PL0T y,290:DR 

AU y,270:PL0T y,258:DRAU y,238:NEXT 

50 RESTÛRE 30:F0R *=1 T0 9:READ a,b >IK 

;PL0T a,3B6:DRAU b,38S:PLQT a,366:D 

RAU b,366:PL0T a,354:DRAU b,354:FL0 

T a,334:DRAU b,334:PL0T a,322:DRAU 

b,322:PL0T a,302:DRAW b,302:PL0T a, 

290:DRAW h,29O:PL0T a,270:DRAW b,27 

0:PL0T a,258:DRAU b,256:PL0T a,238 

60 DRAU b,238:NEÏT >NJ 

70 PLOT 0,230:DRAU 639,230:H0*I 10, >LB 

233:FILL 

80 FOR i=l T0 9:L0CATE m2,2:PEN 3: >KD 



PRINT CHR»( 1431: LOCATE l>2,4:PR[NT 
CHR»(143):L0CATE l«2,6:PRINT CHR«(1 
43>:LQCAÏE i«2,8:PRINT CHB«(143):L0 
CATE H2,10:PR1NT CHM(U3>:NEIT 
90 a»='IWRCHISEÎ':a=2:b=2:pe=0:so=2 >TG 
53:G0SUB 390 

100 a*==présente , :a=4:b=4:pe=0:so=3 >VK 
79:G0SUB 390 

110 a»='LA B0UE , :a=4:b=6:pe=2:so=S0 NIC 
6:G0SUB 390 

120 a»="DE LA":a=6:b=8:pe=2:so=638: >HA 
G0SUB 390 

130 a»='F0RTUNE":a=4:b=10:pe=2:so=7 >8R 
58:G0SUB 390 

140 PEN >ZH 

150 0RIGIN 320,113 >HE 

160 DEG >RD 

170 H0VE 0,110 >LD 

180 FDR a-û TO 360 STEP iû >SL 
190 DRAU U0iSI«la),li0»C0S(a) >XQ 
200 NEIT >DH 

210 H0VE 0,0:F1LL 4 >HT 

220 H0VE 0,20 >DH 

230 FOR a=0 T0 360 STEP 10 >RG 
240 DRAU 20«SIN(a),20»COS<a> >UB 
250 NEIT >EC 

260 «0VE 0,0:FIU 5 >rE 

270 FOR a=0 T0 360 STEP 15 >RR 
280 HÛVE 0,0 >TA 

290 DRAU 110«COS(a),110»SIN(a) >IR 
300 NEIT - >DJ 

310 c=6:a=5 >TK 

320 H0VE 100>COS(a),100>SIN(a):FILL >EH 
c 
330 â=a*l5:c=c*l:IF c>12 THEN c=5 >ZD 
340 IF a>350 THFJ 350 EL3E GOTO 320 >ZC 
350 SPEED INK 30,30 >MF 

360 FOR i=4 T0 15: INK i,RND«26,RND» >KB 
26:NEXT 

370 t=t*l:IF t>300 THE» 380 ELSE G0 >FZ 
T0 350 

380 SPEED INK 30,2:RUN"rouel >IE 
390 e=LEN(a*):f=i )LK 

400 n»=HID*(a»,f,l) >HG 

410 L0CATE a,b:PEN peiPtINT n* >TB 
420 SOUND l,so,10,15 >NN 

430 FOU t=l TO 200:NEÏT >QH 

440 IF n«=» • THEN LOCATE a,b:PEN 3 >KQ 
:PRINT n* 

450 a=a*2:so=so~15 >HC 

460 (=ltl:IF f>e THEN RETURN ELSE G >JN 
0T0 400 




BOUE 1 

10 ' mifiimiffiiiiiiiiiifiiifi >LA 

20 ' i U ROUE DE U FORTUNE « >LB 
30 ' « G. HAICHISET • >LC 
40 ' l 15 octobre 1988 i >LD 
50 ' *lf«l>lli»fl«lll*<»«llillf >LE 

60 ' • écriture en double taille s >LF 

70 a=48000:FOR 1=100 T0 400 STEP 10 >DU 

:s=0 

80 FOR (=1 T0 10 >UA 

90 READ i*:o=ÏAL("t't««):P0KE a, s» >UQ 

:s=stx]t:a=ail 

100 NEIT j >NA 

110 READ xi: IF sOm THEN PRINT "Er >GÏ 

reur en llgne;i:end 

120 NEIT 1 >NB 

130 CALL 18000 >HC 

140 DATA 2a,d4,bd,22,2b,80,01, 13,80 >HP 

,21,829 

150 DATA 0f,80,c3,dl,bc,00,00,00,00 >HA 

,21,768 

160 DATA 80,c3,2d,80,c3,34,B0,c3,3b >JU 

,80,1253 

170 DATA c3,42,80,44,cc,M,cB,44,d4 >JH 

,53,1292 

180 DATA d4,00,c3,ff,(f, 21, 49,80,22 >JI 

,d4,1397 

190 DATA bd,c9,21,97,B0,22,d4,bd,c9 >JU 

,21,1371 

200 DATA ce,80,22,d4,bd,c9,2a,2b,80 >JH 

,22,1217 

210 DATA d4,bd,c9,fS,e5,le,02,cd,a5 >KP 

,bb,166S 

220 DATA 3e,19,cd,5a,bb,3e,ff,cd,5a >KA 

,bb,1368 

230 DATA 0e,08,06,04,56,af,cb,4b,20 >HE 

,0e, 617 

240 DATA cb,22,cb,22,cb,22,cb,22,18 >HU 

,04,976 

250 DATA cb,27,cb,27,cb,22,30,02,f6 >JH 

,03,1020 

260 DATA 10,f4, cd,5a,bb,23,0d, 20, db )JJ 

,3e, 1103 

270 DATA tf,el,d5,e5,cd,2a,80,el,dl >KÏ 

,ld,1760 

260 DATA c8,3e,09,cd,5a,bb,fl,24,e5 >JE 

,18,1283 

290 DATA b6,f5,2d,e5,le,02,cd,a5,bb >KU 

,3e, 1352 

300 DATA 19,cd,5a,bb,3e,ff,cd,5a,bb >KT 

,06,1312 



310 DATA 04, cb, 4b, 20, 04, 23, 23, 23, 23 >GG 

,7e, 584 

320 DATA cd,5a,bb,cd,5a,bb,23,10,f6 >KU 

,3e, 1323 

330 DATA ff,el,d5,e5,cd,2a,B0,el,2c >KB 

,dl,1775 

340 DATA Id,c8,fl,e5,18,ce,f5,2d,e5 >KÏ 

,1e, 1478 

350 DATA 04,cd,a5,bb,3e,19,cd,5a,bb >KF 

,3e, 1192 

360 DATA ff,cd,5a,bb,cb,43,28,04,23 >JF 

,23,1121 

370 DATA 23, 23,0e, 04, 06,04,56, (b,re >m 

,03,564 

380 DATA 30,08,cb,22,cb,22,cb,22,cb >JU 

,22.1004 

390 DATA af,cb,27,cb,27,cb, 22,30,02 >JN 

,f6,1192 

400 DATA 03,10,f4,cd,5a,bb,cd,5a,bb >JD 

,23,1262 

410 DATA 0d,20,d9,3e,f(,el,d5,e5,cd >KA 

,2a, 1493 

420 DATA 80,el,dl,cb,43,c2,2t,81,2c >JZ 

,7b, 1355 

430 DATA fe,03,c2,2e,81,3e,09,cd,5a >KF 

,bb,1179 

440 DATA 2d,24,fl,ld,c8,f5,e5,18,9e >JQ 

,00,1207 

450 ' < initialisation « >RK 

460 nbj=3:DII1 rl(40),iot(50),nb|t(3 >R8 

),rel(3l,tsc(3),sc(3)::F08 1=1 T0 3 

:rel(i)=0:tsc(I)=0:sc(i)=0:NFJT 

470 (l=l:1=l:jeu=l:G0SUB 2350:'» en >ÏV 

trée des prénois i 

480 '» page écran- t/sort des tentes ;TC 

490 nl=0:GOSUB 2430:GOSUB 1290 >YG 

500 FOR 1=1 T0 ls:rl(i>=0:NFJtT >TU 

510 has=INT(RND<50):IF iot(has)=l T >KD 

HEN 510 

520 FOR i=l TO has:8EAD iot«,vl:NEI >TA 

T:iot(has)=l 

530 ls=LEN(lot*hn«=" >BC 

540 '< Prog/principal » >8K 

550 G0SUB 2520 >QA 

560 vo=0:cn=0:G0SUB 3130:ùDT:LOCATE >HY 

1,25:PBINT nb)l(J) j:ùST:L0CATE 35, 
24:P8INTM-Une consonne': LOCATE 35, 
25:PBINT "2-Achat voyelle": LOCATE 6 
0,24:PBINT"3-Solution' 
570 CLEAB INPUT >LV 

580 GOSUB 3150 >QD 





590 IF r«="l" THEN GOSUB 1970:G0TQ >0J 
630 

600 IF r*="2" IHEH vo=l:GOTO 1100 >ZY 
610 IF rl="3" THEN sl=l:GOTO B30 >YZ 
620 GOTO 560 >ZF 

630 GOSUB 3130:iiDT:L0CATE 1.25:PRIM >LH 
T nb)»());:ùST:PBIHT" Votre consonn 
e":LOCATE 50,24:PRINT"1 -Solution" 
640 CLEAB INPUT >LU 

650 GOSUB 3150 >QB 

660 IF r$="l' THEN sl=l:GOT0 830 >YC 
670 IF INSTR("l",r»>=0 AND ir<65 OB >Pfi 

r>96> THEN 630 
680 IF r>64 AND t<97 THEN LOCATE 40 >NX 
,25:PBINT [I 

690 IF <r=65 OR 1=69 OB r=73 OB r=7 >DC 
9 OR r=85) AND ïo=0 THEN 1380 
700 LOCATE t3,20*INSTR(alph«,rl),l: >ZH 
PEN I3,1:PRINT 13, r< 
710 IF INSTR(n».r»> THEN 1050 >UK 
720 FOR e=l TO ls.'IF t«=«ID»dot»,e >IY 
,1) THEN 730 ELSE 750 
730 LOCATE !2,e»2,5:PEN I2,1:ÙDH:S0 >AD 
UNO 1, 50,20,15, 1,1:PB1NT l2,r«:ùST: 
n»=n»*r*:c*=c»*r»:cn=l:rl(el=rl(eH 
1 

740 IF rl(e)=l THEN nl=nl*l >UT 
750 NEH >EH 

760 IF cn=l THEN sel j)=scl jlHVALIt >KZ 
l»>iLEN(cJ)>:c»="":GOSUfi 2490 
770 IF ls-LEN(n»l=vl THEN cnl = l >ZV 
775 IF cn=l AND cnl=l THEN 820 ELSE >CJ 

IF cn=l AND cnl=0 THEN 560 
780 GOSUB 3130 :ÙDT: LOCATE 1,25:PBIN >UF 
T'Elle n'y est pas ":ÙST: SOUND 1,55, 
20,15, 1,1:F0B t=l TO 500:NEXT 
790 IF rai=0 AND rel(j)>=l AND cnl=0 >GA 

THEN IF rel(D>0 THEN rel(])=rel(t 
)-l:GOTO 560 
795 IF «1=0 AND rel<1)>=l AND cnl=l >GF 

THEN IF rel())>0 THEN rel(JI=rel(j 
)-l:G0TO 820 

800 j=j+l:IF j>3 THEM J=l >RF 
610 IF cnl=l THEN GOTO 820 ELSE GOT >FÏ 
0560 

620 GOSUB 3130:ÙDT:L0CATE 1,25:PRIN >FH 
T"ll n'y a plus de consonne":ùST:F0 
R t=l TO 1000:NEIT 

830 GOSUB 3130.-L0CATE 50,24:P8INT"1 >AH 
-Achat voyelle":ùDH;LOCATE 1,2S:PRI 
NT nbj»())i:ùST:PRINT" votre solutl 
on : " 



640 LOCATE 35, 25: LIRE INPUT ;rp» >AY 
850 rp*=UPPER»(rp»> >PP 

B60 IF rp»="l" THEN wptrBDTfl 1100 >AT 
870 IF rp»=lot* THEN FOR e=l TO Is: >XB 
ÙDH:LDCATE l2,e=2,5:P8|NT I2.HIDK» 
oU,e,l):NEXT:ùST:GOTO BSO ELSE 950 
880 '• (tanné « >TG 

890 GOSUB 3130:ùDT:L0CATE 1,25;PBIN >VD 
T nbjf(j):" Vous gagnez ! ":ÙST 
900 FOB l=5O0 TO 800 STEP 20 >UT 
910 SOUND 1,1,15,15 >HT 

920 NEXT >EG 

930cnl=0:jl=il*l:IF |1=2 THEN j=2 >IC 
ELSE IF 11=3 THEN )=3 
940 )eu=jeu*l:IF jeu>3 THEN 2600 B, >HE 
SE GOTO 490 

950 '« perdu « >TE 

960 GOSUB 3130:ùDT:L0CATE 1.25:PRIN >IÏ 
T nb)llj);" Non c'est faut ":ÙST 
970 FOR n=15 TO 1 STEP -1 >QF 
960 SOUND 1,426, 40, n,,,l >BP 
990 NEXT >FD 

1000 IF rel( j)>=l AND sl=l THEN IF >CC 
rel(1)>0 THEN rel<1>=rel()>-l:sl=0i 
GOTO 560 

1010 IF rel<l>>=l AND sl=0 THEN IF >VB 
rel()»0 THEN rel())=rel(|l-l:G0T0 
830 

1020 t=j*l:IF j>3 THEN j=l >n 
1030 IF sl=l AND rel(1)=0 THEN sl=0 >KL 
:GOTO 560 

1040 GOTO 830 >FB 

1050 GOSUB 3130 :uDT: LOCATE 1,25: PS! >KU 
NT" Delà utilisée !":ÙST 
1060 FOB t=l TO 500:NEXT >RB 
1070 IF rel(J)>=l THEN IF re!<)»0 >JB 
THEN reU])=rell))-l:GOTO 560 
1080 j=j*l:lF ,t>3 THEN )=1 >TZ 
1090 GOTO 560 >FG 

1100 '< achat voyelle i >1E 
1105 IF sclj>-1500<0 THEN 1380 >«L 
1110 CLEAR INPUT >LF 

1120 GOSUB 3130:ÙDT:L0CATE 1,2S:PRI >Oi 
NT nbj»l))::ùST:PRINT ' Votre voyel 
le : " 

1130 GOSUB 3150 >UG 

1150 IF (r=65 OR r=69 OR r=73 OR r= >0P 
79 OR r=85) AND vo=l THEN 1160 ELSE 
1380 

1160 sc(])=sc())-1500:G0SUB 2490 >ZN 
1170 LOCATE t3,20*INSTR(alph*,r«>,l >AK 
:PEN I3,1:PRINT I3,r» 



1180 FOR e=l TO ls:IF rMHIDKiotl, >AY 

e.l) THEN 1190 aSE 1200 

1190 LOCATE l2,e<2,5:PEN I2,1:ÙDH:S >CP 

OUND 1, 50.20,15, l.ljPSINT l2,r»:ùST 

:vtl=l 

1200 NEIT >KE 

1210 IF ls-LEN(n»)=vl THEN 820 >IÏ 

1220 IF vtl=l THEN vtl=0:vo=0:GOTO >FD 

560 

1230 GOSUB 3130:ÙDT:L0CATE 1,25:PR1 >VQ 

NT'Elle n'y est pas ":uST: SOUND 1,55 

,20,15, 1,1:F0B t=l TO SOO:NEXT 

1240 sclj)=sc(i)-150O:G0SUB 2490 >ZH 

1250 IF rel(l)>=l THEN IF rel(D>0 >JB 

THEN rel(1)=rell|)-l:G0T0 560 

1260 )=)*1:1F i>3 THEN t=l >TZ 

1270 GOTO 560 >FG 

1280 '< tirage textes > >ÏD 

1290 BANDOHIZE TIHE >PN 

1300 li=INT(RND(l)«5):IF 11=0 THEN >FV 

1300 

1310 IF 11=1 THEN RESTORE 1430:T1T» >QG 

="HONUHENT" 

1320 IF 11=2 THEN RESTOBE 1540:TIT« >WT 

="PERS0NNAL1TE" 

1330 IF 11=3 THEN RESTORE 16S0:TIT» >LY 

="TITRE" 

1340 IF 11=4 THEN BESTOBE 1760:TIT» >UT 

="EIPRESSION" 

1350 IF li=5 THEN RESTOBE 1870:T1TI >LH 

="CHOSE" 

1360 RETUBN >FD 

1370 '« Erreur lettre « >YD 

1380 FOR t=l TO 1000:NEIT:LOCATE 20 >LP 

,25:PRINT STBING*(19,CHR»132II:L0CA 

TE 20,25:PRINT "1HP0SSIBLE" 

1390 IF rel<t>>=l THEN IF rel(])>0 >JG 

THEN rel<1)=rel(1)-l:G0T0 560 

1400 j=iH:IF |>3 THEN j=l >TV 

1410 GOTO 560 >FC 

1420 ' > Homnents « >IK 

1430 DATA "LE CENTBE P0hTID8U",9,"L >IH 

A TOUR EIFFa\6,"LE PETIT TBIANON" 

,8, "LE PALAIS DE LA DECOUVERTE", 15, 

"L'ARC DE TRIOHPHE",B 

1440 DATA "LE MUSEE GREVIN",8,"N0TR >ZY 

E DAME DE PARIS", 10, "LE JABDIN DES 

PLANTES", 9, "LE MUSEE R0DIN",8,"LE P 

ANTHE0N",5 

1450 DATA "LA BASILIQUE DE SAINT DE >FE 

NIS",15,"LE MUSEE HASSENA",9,'LE HU 

SEE NAPOLEON", 10, "LA TOUR DE SAINT- 



NICOLAS", 13, 'LE MUSEE PIERRE LOTI", 
12 

1460 DATA "LA CITE DE CABCA5S0NNE", >LF 
11, "LES ARENES D'ARLES", 9, "LE CHATE 
AU GAILLARD", 10, 'LA CATHEDRALE DE C 
HABTRES'.U.'LE CHATEAU DE HA1NTEN0 
NM3 

1470 DATA "LA MAISON CABREE DE NIME >EH 
S", 14, "LES ARENES DE NI MES", 10, "LE 
CHATEAU DE LA HALHAIS0N",15,"LE CHA 
TEAU D'AHB0ISE",12,"LE CHATEAU DE C 
HEN0NCEAUM4 

1480 DATA 'LE CHATEAU DE CHIN0NM1 >FU 
,"LE CHATEAU DE CHAHBORD",U,'LE CH 
ATEAU DE CHAUM0NT',12,'LE MUSEE DE . 
SOLOGNE", U, "LE CHATEAU DE VENDOME" 
,12 

1490 DATA 'L'ABBAYE DE LA CHAISE-OI >CP 
EU", 16, 'LE DONJON DE POLIGKAC',10," 
LE CHATEAU DU ROI RENE", 14, "LE HONT 
-SAINT-MICHEL', 9, 'LA PORTE DU BOY", 
8 

1S0O DATA "LE PALAIS DE THAU",10,"L >GQ 
E MEMORIAL CHARLES DE GAULLE", 15, "L 
E MUSEE ABT NAÏF", 10, 'LE MUSEE DU C 
RISTAL DE BACCARAT", 16, 'LE MUSEE DE 
LUNEVILLE',12 

1510 DATA "L'ABBAYE DES PBEHONTES". >LG 
10, "LE CHATEAU DE BEAUVAIS",14,"LE 
CHATEAU DE C0MPIEGNE',13,"LE MUSEE 
EMILE ROSTAND', 12, "LE CHATEAU DE FO 
. NTAINEBLEAU",16 
1520 DATA "LE PONT DU SARD",7,"LA M >GY 
AISON DE JEANNE D'ABC", 14, "LE PALA1 
S DES PAPES", 10, "LE MEHOBIAL DU MON 
T FAB0N",13,"LE PONT SAINT-BENEZET" 
,10 

1530 '• PERSONNALITES I >YB 

1540 DATA "SALVATORE ADAM0',8,'ISAB >NQ 
ELLE ADJANI',8,"FBED ASTAIBE",6,'JE 
AN-CHRISTOPHE AVEBTY",9,"JEAN AHADO 
U",7 

1550 DATA 'BOBEBT BADINTEB',6,'J0SE >UP 
PHINE BAKEB", 7. "DANIEL BALAVOINE',9 
."BBIGinE BABDOT", 6, "RAYMOND BUSSI 
ERES", 7 

1560 DATA "HICHAEL CAINE",7,'LE5LIE >YG 
ÇAR0N",6,"B0BEET CHARLEB01S',7,'AR 
THUR CONTE", S, "ROGER COUDERC',6 
1570 DATA "MIREILLE DABC, 6, "MARCEL >ZA 
DASSAULT",6,"J0E DASSIN",5,"RAYrlON 
D DEV0S',5,"MABGUEBITE DURAS", 8 



1580 DATA "CLINT EASTU00D",6,"JEAN- >NI 
PIEBBE ELKABBACH",10,"LENY ESCUDEBO 
', 6, "JACQUES FAIZANT',7,'EDGAB FAUB 
E",6 

1590 DATA "FBEDEE1C0 FELLINI",8,"FR >QI 
ANK FERNANDa",5,"EDVlGE FEU1LLERE" 
,9, 'MICHEL GALABBU",6, "ANNIE GIRARD 
0T",7 

1600 DATA "STEUART GRANGER',5,'GE0R >QL 
GES GUETABY\7,"SACHA GUITRY", 5, "GE 
OBGES HABBISSON', 7, 'ALFRED HITCHCOC 
K",5 

1610 DATA "JACQUELINE J0UBERT",9,'C >BJ 
URD JURGENS',4,'GRACE KEUY",4,"REN 
E-LOUIS UFFOBGUE',U,"BURT LANCAST 
ER",5 

1620 DATA "DENY5 DE U PATELL1ERE", >GU 
ll.'JERRY LEyiS',4,"SHIBLEY MAC Ul 
NE", 8, "FRANÇOIS MITTERRAND", 7. "MABI 
LYN M0NR0E",6 

1630 DATA "MARIE-JOSE NAT',8,"ANNE- >VG 
MABIE PEYSS0N",9,"OTT0 PREHINGER",6 
, "SERGE BEGGIANI",7,'ROBQT0 BOSSEL 
LINl',8 

1640 '« TITRES • >Y0 

1650 DATA 'LE DIABLE AU CORPS", 10," >UH 
G0UP1 MAINS-ROUGES", 10, "LES TRIBULA 
TIONS D'UN CHINOIS EN CHINE", 19, "QU 
Al DES BRUMES", 8, 'NOUS SOMMES TOUS 
DES ASSASSINS', 14 

1660 DATA 'U CHARTREUSE DE PARME*, >PA 
11, "LA BATAILLE DU RAIL", 11 . "QUAI 
ES ORFEVRES", 9, "U SYMPHONIE PASTOR 
ALE",10,"LA BAIE DES ANGES", 10 
1670 DATA "LA BATAILLE DE L'EAU LOU >NZ 
BDE',17,'LE PETIT MONDE DE DON CAHI 
LLO", 15, "THERESE DES8UEYfiOUX",9,"LE 
CAPITAINE FRACASSE', U, "LES TONTON 
S FLINGUEURS',9 

1680 DATA "UN HOMME ET UNE FEMME", 1 >MD 
2, "LE MYSTERE DE LA CHAMBRE JAUNE", 
15, "ASCENSEUR POUR L'ECHAFAUD\13," 
LE SAMOURAÏ", 7, "LA GRANDE VAOROUlLL 
E",10 

1690 DATA "U FEMME DU B0UUMSE8",1 >PU 
1,'LA GRANDE ILLUSION", 9, "LA GUERBE 
DES BOUTONS", 11,'HAI ET LES FEBRAI 
LLEURS",U,"LES LIAISONS MMXIEUSE 
S", 12 

1700 DATA "LA VACHE ET LE PR1SDNNIE >HJ 
R", 13. "ZERO OE CONDUITE", 9, "LE SALA 
IRE DE U PEUR", 13, 'LA JUMENT VERTE 



", 7, "JOURNAL D'UN CURE DE CAMPAGNE' 

,15 

1710 DATA "LE PONT DE LA RIVIERE Kli >UD 

Al", 15, "LES HAUTS DE HURLEVENT",10, 

"LE DESERT DES TARTARES", 10, "VOYAGE 

AU BOUT DE LA NUIT',16,*LES SAINTS 

VONT EN ENFER', 11 

1720 DATA "CHIENS PERDUS SANS COLLI >EV 
ER",11,"L£ BLE EN HEBBE",8,"LES AVE 
NTURES DE SHERLOCK HOLMES", 14, "LETT 
RE3 DE MON MOULIN", 10, "U DAME AUX 
CAMELIAS", 12 

1730 DATA "ELISE OU U VRAIE VIE", 1 >HD 
5, 'LA SOUPE AUX CHOUX", 11, "PREMIER 
DE CORDEE". 9, 'LA BAIE DES ANGES", 10 
,"FOBT SAGANNE",5 

1740 DATA "U SYMPHONIE PASTORALE", >TH 
10, "LA PUISSANCE ET LA GLOIRE", 14," 
LE VIEIL HOMME ET LA MER", 14, "LA FO 
IRE AUX CANCRES", 11, 'TANT QU'IL Y A 
URA DES HOMMES". 15 

1750 '« proverbes » >YF 

1760 DATA 'JOUR DE L'AN CHAUD MOIS >GE 
D'AOUT CHAUD", 21, "PLUIE AUX ROIS BL 
E JUSQU'AU TOIT", 20, 'SE METTRE U C 
ORDE AU C0U',15,"SAIIiT-B0NIFACE BRI 
SE LA GLACE", 15, 'PLUIE DE JUILLET E 
AU EN JANVIER", 19 

1770 DATA 'NOËL AUX TISONS PAQUES A >CZ 
U BALCON", 18, "NOa AU BALCON PAQUES 

AUX TISONS", 18, "OCTOBRE EN BBUINE 
HIVER EN BUINE",18,"ETBE AUX ABOIS" 
,9, "BRILLER PAR SON ABSENCE", 10 
1780 DATA 'PAREE COMME UNE ACCOUCHE >AP 
E", 15, "ACCOUCHER D'UNE SOURIS", 12," 
LE TALON D'ACHILLE". 9, 'DANS LA FLEU 
R DE L'AGE', 12, "VOLER DE CES PROPRE 
S AILES', 13 
1790 DATA 'JETER LE MANCHE APRES LA >KJ 

COGNEE", 16, "CORPS ET AME',6,"VENDR 
E SON AME AU DIABLE", 14, "EBRER COMH 
E UNE AME EN PEINE", 17, "FAIRE AMEND 
E HONORABLE", 12 

1800 DATA "VIVRE D'AMOUR ET D'EAU F >IV 
RAICHE", 18, "FAIRE L'ANE POUR AVOIR 
DU SON", 18, "UN ANE BATE', 7, 'ETRE AU 
X ANGES", 8, 'FILER A L'ANGLAISE". 10 
1810 DATA 'APRES VOUS MESSIEURS LES >XH 

ANGLAIS", 16, "APRES VOUS S'IL EN RE 
STE", 13, "AVOIR PLUSIEURS CORDES A S 
ON ARC", 17, 'MENTIR COMME UN ARRACHE 
UB DE DENTS", 16, "FIER COMME ARTABAN 







1820 DATA "NE PAS ETRE DANS SON ASS >DX 
IETTE",15,"ETRE NE SOOS UNE BONNE E 
TOILE", 16, "S' EN LECHER LES BABINES" 
,11, "BIEN MENER SA BARQUE", 11, "HETT 
RE DES BATONS DANS LES ROUES", 15 
1830 DATA "BATTRE LE FER QUAND IL E >CH 
ST CHAUD", 16, "BAYER AUX CORNEILLES" 
, 10, 'NETTRE LA CHARRUE DEVANT LES B 
OEUFS", 17, "QUAND LE VIN EST TIRE IL 

FAUT LE BOIRE", 22, "AU PETIT BONHEU 
R LA CHANCE", U 

1B40 DATA "AVOIR LA TETE PRES DU BO >UL 
NNET", 15, "FAIRE VENIR L'EAU A LA BO 
UCHE", 19. "C'EST PLUS FORT QUE DE JO 
UER AU BOUCHON", 22, 'PRENDRE UN BOUI 
LL0H",9,"ETRE COIffiE L'OISEAU SUR LA 

BRANCHE", 19 

1850 DATA 'ETRE TOUJOURS SUR U BRE >D8 
CHE", H, "REVENIR BREDOUILLE", 9, "BRO 
UILLER LES CARTES", 9, "LE CADET DE H 
ES SOUCIS", 12. "FUHER LE CALUHET DE 
LA PAIX", 15 

1860 '• CHOSE i >YH 

1B70 DATA "UN ABACA",5,"UN ABAT-JOU >BQ 
R",7,"UN ACCUMULATEUR", 8, "UN AGAMI' 
,5, "UNE AIGRETTE",? 

1880 DATA 'UN ALLIGATOR", 6, "UN BABI >AF 
RDUSSA",7,"UNE BERGERE", 6, "UNE BOUG 
AINV1LLEE',10,"UN BRISE-GLACE" ,7 
1890 DATA "UN CACHALOT", 5, "UN CENTA >U 
URE",6,"UN CHASSE-NEIGE", 8, "UNE CIT 
HARE",6,"UN COLCHIQUE", 6 
1900 DATA "UN DATTIER", 5, "UNE DECOR >VU 
ATI0N",8,"UN DIFFERENTIEL', 7,'UN Dl 
RIGEABLE*,7,'UN DROMADAIRE",? 
1910 DATA "UNE ECAILLE", 7, "UN EDRED MA 
ON", 5, "UN ELECTR0PHDNE",7,'UN ENCEN 
SOIR", 6, 'UN EPHEHERE",6 
1920 DATA 'UNE FELOUQUE", 8, "UNE FOR >QY 
TIFICATI0N",9,"UNE FREGATE", 6, "UN F 
UCHSIA",5,"UN GA20HETRE",6 
1930 DATA "UN GL'PT000N",4,"UN GRAD >PP 
IN", 4, "UNE GUITARE",?. "UNE HALLEBAR 
DE", 7, "UN HAUT-DE-F08HE",9 
1940 DATA "UN HELICOPTERE", 7, "UN HY ?Vi 
DRAVI0N',5,"UN HYGROMETRE", 5, "UN IC 
HTY0SAURE",7,'UN INJECTEUR",6 
1950 DATA "UN JAQUEMART", 6, "UN KIHO >NC 
NO", 5, "UN LABYRINTHE", 5, "UN LAMPADA 
IRE", 7, "UNE LOCOMOTIVE", 8 
1960 DATA "UN MAGNETOPHONE',?, "UN M >HJ 



AN0HETRE",6,"UNE MARQUISE", 7, "UN ME 

NHIR",4,'UN MINARET", 5 

1970 ' • la roue tourne < >YK 

1980 GOSUB 3130 :ÙDT: LOCATE 1,25:PRI >HN 

NT nbil<i);:ùST:PRINT" Une touche S 

VP'j 

1990 CALL IBB06 >VC 

2000 DATA "500-, "3000", "2000', "1500 >HC 

", "500", "1500", "2500", "2000', "1500" 

, "RELANCE", "500', "1500", "1000', "300 

0", 'PASSE", "1500", "2500", "1500", "10 

00", "2500", "1000", "1500", "2500", "BA 

NQUEROUTE" 

2010 DATA "5O0","B0NUS","200O","150 >LC 

0", "500", "1500", "2500", "2000". "1500 

" , "RELANCE", "500" , "BANQUEROUTE" , ■ 10 

000", "3000", "1500", "PASSE", "2500", " 

1500", "1000", "2500", "1000", "1500"," 

2500", "BANQUEROUTE" 

2020 U = lNT(RNDt24):IF tl=0 THEN 20 >DP 

20 

2030 IF 1eu=l THEN RESTORE 2000:FOR >DJ 

1=1 TO ti:READ tlliNEXT 
2040 IF 1eu=2 OR 1eu=3 THEN RESTORE >PU 

2010:FOR 1=1 TO tl.-REAO ti»:NEXT 
2050 IF tll="BANQUEROUTE" OR til='P >TD 
ASSE" THEN 2070 ELSE IF til='RELANC 
E" THEN 2200 ELSE IF til="BONUS" TH 
EN 2250 ELSE 2280 

2060 RETURN >FB 

2070 '» banqueroute où passe * >YB 
2080 IF <til="BANQUER0UTE" OR tit=" >UE 
PASSE") AND tell i)>0 THEN 2090 ELSE 

2150 
2090 IF UM'BANBUEROUTE" THEN 2100 >LZ 

ELSE 2120 

2100 rel(|)=rel(t)-l:IF reKIKl TH >NN 
EN relU)=0 

2110 sc())=0:GOSUB 2310:G0SUB 2490: >LH 
GOTO 1980 

2120 IF til="PASSE" THEN 2130 >WX 
2130 ] el ( 1>=rel ( t)-l: IF reKIKl TH >NR 
EN rel(|)=0 

2140 GOSUB 2310:G0T0 1980 )TE 
2150 GOSUB 2310 >VG 

2160 IF tlM'PASSE" THEN 2180 >RG 
2170 IF til="BANQUEROUTE' THEN sclj >TU 
)=0:GOSUB 2490 

2180 1=1+1: IF t>3 THEN 1=1 >TB 
2190 GOTO 560 >FJ 

2200 '» relance » >XG 

2210 rel(1)=rel<im >PU 



2220 GOSUB 2310 
2230 GOTO i960 
2240 '« bonus > 
2250 GOSUB 2310 
2260 tll="10000" 
2270 GOTO 2060 
2280 'l chiffres > 
2290 GOSUB 2310 
2300 GOTO 2060 



>VE 
>NC 
>YA 
>UH 
>XG 
>HG 
>YE 
>XB 
>HA 



2310 HINDOU 15,49,76, 15, 20:PAPER 15 >YF 
,0:PEN »5,1:ÙDT:CLS I5:L0CATE 15,1, 
2:PR1NT l5,nbjl<1):ùST:L0CATE 15,1, 
4:PRINT 15, "Vous jouez pour :':LOCA 
TE I5,19,4:ÙDH:PR1NT 15, tl»:ùST:LOC 
ATE I5,1,6:PR1NT 15, 'Vous avez : '; 
:PRINT l5,USING'l';rel(j); 
2320 PRINT 15," JOCKER";:IF rel(1)> >IB 
1 THEN PRINT 15, "S" 

2330 FOR t=l TO 500:NEXT t >TN 
2340 RETURN >FC 

2350 '" entrée des prénoas < >YC 
2360 MODE 2:INK 0,0: INK 1,24:B0RDER >EE 

14 
2370 HINDOU 11, 1,80,1, 4:HIND0U 12,1 >HQ 
,80,7,12:PAPER I1,0:PEN 11,1: PAPER 
I2,0:PEN 12,1 

2380 ùDT:a»="i LA ROUE DE LA FORTUN >AA 
E »":bl=STRlNGI(LENlal),"-"):LOCATE 

•l,(80-LEN<alll/4,2:P«l»T ll,at:LO 
CATE ll,(80-LENIM))/4,4:PRINT ll.b 
»:UST 

2390 PLOT 0,335, 1:DRA« .640,335 >XF 

2400 FOR 1=1 TO nbi:CLS I2:L0CATE I >NE 
2,1,3:PRINT l2,"Joueur";i;:INPUT 12 
," votre prénai ",nb1IUI 
2405 IF LEN(nbJI(l))>ll THEN nblKi >YH 
)=MID»tnbi»(i),l,ll) 

2410 NEIT.-CLS 12 )LE 

2418 RETURN >FJ 

2420 '• page écran > >YA 

2430 PLOT 0,310, liORAN 630,310:DRAU >JA 

630,210:DRAW 0,210:DRAU 0,310 
2440 FOR »=4 TO 640 STEP 16:PL0T i, >FH 
260:DRAU i,220:NEXT:PLOT 4,260:DRAU 

630,260:PLOT 4,220:DRAN 630,220:PL 
OT 0,268:DRAU 630.268 
2450 PLOT 0,40,1:DRA« 630,40:DRAU 6 >DR 
30,70:DRAU 0,70:DRAW 0,40:UIND0R 13 
,2,79,22,23:PAPER I3,0:PEN I3,1:L0C 
ATE I3,1,1:PRINT 13, "Lettres utills 
ées : ";:FOR alpti=65 TO 90:PEN 13,0 
:alphl=aIphltCHRI(alph):PRINT 13, CH 




8l(alph);:NEIT 

2460 PLOT 0,7S,1:DRAR 630.75:DRAU 6 >QÏ 
30,180:DRAU 0,1BO:DRA» 0,75:PL0T 12 
4,1B0:DRAU 124,75:PL0T 252,180:DRAH 
252.75.-PL0T 376,180:DRAW 376,75:ïl 
NDOR 14,1, 47.15, 20:PAPER I4,0:PEN I 
4,1 

2470 ÙDH:L0CATE I4,3,2:PEN I4,1:PRI >BY 
NT l4,nb{l(ll:L0CATE 14, 18,2:PRINT 
l4,nbJI(2):L0CATE I4,34,2:PR1NT 14, 
nb1«(3l:U5T:L0CATE I4,5,3:PRINT 14, 
"SCORE :":LOCATE I4,20,3:PRINT 14," 
SCORE :':LOCATE I4,36,3:PRINT 14, 'S 
CORE :" 

2480 PLOT 20,75,1:DRAH 20,120:DRAW MCA 
100,120:DEAU 100,75:PLOT 146,75:DRA 
U 148,120:DRAU 228,120:DRAU 228,75: 
PLOT 276,75:DRAU 276,120:DRAV 352,1 
20:DRAN 352,75 

2490 UDH:LOCATE i4,b,b:PRINT 14,1)51 >W 
NG'llllll';sc(ll:LOCATE 14,21, 6:PRI 
NT l4.USlNG"llllll";sc(2):L0CATE 14 
,37,6:PRINT l4,USING"llllll';sc(3): 
ÙST 

2500 RETURN >FA 

2510 'i affichage • >YA 

2520 ÙDT.-LOUTE I2,5,2:PRINT I2,STR >ML 
INGI(30,CHRI(32I):L0CATE I2,(80-(LE 
NlTIT»)U2l/2,2:P£N I2,1:PRINT I2.T 
1TI;:UST 

2530 FOR e=l TO 39:ùDH:L0CATE I2,e> >UX 
2,5:PEN I2.0:PRINT I2,CHRIU43):NEX 
T 

2540 FOR e=l TO ls:ùDH:LOCATE 12, e» >NX 
2,5:PEN I2,1:PRINT I2.CHRK143) 
2550 IF MID»(ioU,e,l)="" THEN M- 
'":LOCATE !2,ti2,5:PEN I2,1:PRINT 
12, dl 

2560 IF HIDI(lott,e,l)="-" THEN d»; 
"-":LOCATE !2,e«2,5:PEN I2,1:PRINT 
12, d* 

2570 IF MIDIliotl,e,l)=" " THEN d*= >UL 
" ":LOCATE !2,e«2,5:P£N I2,0:PR1NT 
12, dl 

2580 NEIT: ÙST: RETURN >TV 

2590 'i dernière partie i >YJ 

2600 ERASE rl,lot:DIM rlU0l,aotl50 >K 
):GOSUB 243O:G0SUB 1290 
2610 ncn=U:ÙDH: LOCATE I4,6,6:PRINT >HU 
l4,USING"llllll";sc(l):L0CATE 14,21 
,6:PRINT l4,USlNG'llllll';sc(2l:L0C 
ATE 14,37, 6:PRINT I4,USING"IIIIII"; 



>VA 



>yp 



scl3):ùST 

2620 IF sc!l)>scl2) AND sc(l)>se(3) >KV 

THEN 1=1 ELSE IF sc(2)>sc(l) AND s 

c(2»scl3) THEN 1=2 ELSE IF sc(3)>s 

cil) AND scl3)>sc<2) THEN 1=3 

2630 IF sc(l)>sc(2) AND sc(l)=sc(3) >ZM 

THEN b=INT(RNDi2l:IF b=l THEN 1=1 
ELSE 1=3 
2640 IF scI2l>sc(3l AND sc(2)=sc(U >ZN 

THEN b=INT(RND<2):IF b=l THEN 1=2 
ELSE 1=1 
2650 IF sc(3)>sc(l) AND sc(3)=sc!2) >2T 

THEN b=INT(RNDt2):IF b=l THEN 1=3 
ELSE 1=2 
2660 IF scll)>sc(3l AND sclll=scl2J >ZP 

THEN b=INT(RND>2):IF b=l THEN 1=1 
ELSE i=2 
2670 IF sc(2)>sc(l> AND sc(2)=sc!3) >2U 

THEN b=INTlRND«2l:IF b=l THEN 1=2 
ELSE j=3 
2680 IF sc(3))sc(2l AND sc(3l=sc(l) >ZV 

THEN b=INT(RND>2):lF b=l THEN 1=3 
ELSE 1=1 
2690 IF sc(l)=sc(2) AND sc(l)=sc(3) >PA 

THEN |=INT(RND<3):IF 1=0 THEN 2690 
2700 GOSUB 3130:ùDT:L0CATE 1,25:PRI >BH 
NT nbil(1)i:ùST:PRINT " 5 Consonnes 

et 1 voyelle " 

2710 FOR i=l TO ls:rl(i)=0:NEÏT >ZX 
2720 hasl=INT(RND«50):IF iot(hasl)= >NH 
1 THEN 2720 

2730 FOR i=l TO hasl:READ iotl,vl:N >UR 
EXT:oot(hasl)=l 

2740 ls=LENliotl):GOSUB 2520 >IC 
2750 i=l >WA 

2760 CLEAR INPUT >LU 

2770 GOSUB 3130:ùDT:LOCATE 1,25:PRI >LU 
NT nb1l(1);:ùST:PRINT i;'eie conson 
ne ";: 

2780 GOSUB 3150 >XJ 

2790 IF r<65 OR r>96 THEN 2750 >M> 
2800 IF r=65 OR r=69 OR r=73 OR r=7 >TB 
9 OR r=85 THEN 2760 

2810 IF r>65 AND r<97 THEN LOCATE 4 >PG 
0,25:PRINT ri 

2620 LOCATE l3,20MNSTRIalphl,rl),l >AN 
:PEN I3,1:PRINT 13, ri 
2630 FOR e=l TO ls:IF rl=MID»liotl, >AT 
e.ll THEN 2840 ELSE 2850 
2840 LOCATE !2,el2,5:ùDH:PEN I2,1:S >UD 
OUND 1, 50,20,15,1, 1:PRINT !2,rl:ùST 
2850 NEIT e >VG 



2660 i=Hl:IF 1>6 THEN 2870 ELSE 27 >BD 
70 

2870 CLEAR 1NPUT:G0SUB 3130:ùDT:L0C >CE 
ATE 1,25:PRINT nbH( ]);:ùST:PRIHT' 
Votre voyelle ": 

2880 GOSUB 3150 >IK 

2890 'IF r<>65 OR rt>69 OR rO?3 OR >ZB 
r<>79 OR r<>85 THEN 8170 ELSE 8220 
2900 LOCATE 40,25:PRINT ri >UE 
2910 LOCATE t3,20*INSTR(alphl,rl),l >AN 
:PEN I3,1:PRINT 13, ri 
2920 FOR e=l TO ls:IF rl=MIDKlotl, >AT 
e.U THEN 2930 ELSE 2940 
2930 LOCATE !2,el2,5:ùDH:PEN I2,1:S >MD 
OUND 1, 50,20,15,1, 1:PRINT 12, r» 
2940 NEIT >LG 

2950 GOSUB 3130:ÙDT:L0CATE 1,25:PRI >AR 
NT nb1l(.1);:UST:LINE INPUT ' Votre 
réponse : ";rpll 

2960 rpll=UPPERIIrpll) >RC 

2970 IF rpll=iotl THEN FOR e=l TO I >HA 
s:LOCATE l2,e>2.5:ùDH:PRlNT I2.HIDI 
(■ot!,e,l):uST:NEXT:sc(1)=sc(jH500 
00:GOSUB 2490:GOTO 2900 ELSE 3090 
2960 '• bonne réponse i >ZB 

2990 GOSUB 3130:ùDT:L0CATE 1,25:PRI >YU 
NT nbjl(|);' Bonne réponse ":ÙST 
3000 FOR 1=500 TO 800 STEP 15 >UT 
3010 SOUND 1, 1,20,15 >NV 

3020 NEn >KG 

3030 FOR t=l TO 500 :NEXT: GOSUB 3130 >HL 
. :ÙDT:L0CATE 1,25:PRINT nblKD;" Vo 
us relouez (0/N)':ùST 
3040 GOSUB 3150 >UJ 

3050 IF rl="0" THEN 3060 aSE 3070 >YV 
3060 CLEAR:CALL 18000:GOTO 460 >XP 
3070 MODE l:LOCATE U,13:ÙDT:PRINT" >CP 
AU REVO 18": ÙST: END 

3060 '> réponse fausse > )YD 
3090 GOSUB 3130:L0CATE 1,25:ÙDT:PRI >QU 
NT nb)!(jh" NON c'est :':ÙST 
3100 FOR e=l TO ls:LOCATE I2,e«2,5: >IK 
ùDH:PRINTI2,HIDI(lotl,e,l):ùST:NEn 
3110 GOTO 3030 >U 

3120 '« Efface teite • >XJ 

3130 LOCATE 1,25:ÙDT:PRINT STRINGK >HM 
39,CHRI(32)l:UST:RETURN 
3140 '< Saisie caractère « >YA 
3150 rl=INKEYI: IF rl="" THEN 3150 >ZQ 
3160 rl=UPPERI(rl) >HK 

3170 r=ASC(rll >UA 

3180 RETURN >FF 



